Compare commits
2 Commits
e61d01d6ea
...
d76b38252b
Author | SHA1 | Date |
---|---|---|
|
d76b38252b | |
|
be707641f0 |
|
@ -40,6 +40,9 @@
|
||||||
(:start "`" :end "`" :face font-lock-doc-markup-face))
|
(:start "`" :end "`" :face font-lock-doc-markup-face))
|
||||||
(markdown-code
|
(markdown-code
|
||||||
(:start "`" :end "`" :face font-lock-doc-markup-face))
|
(:start "`" :end "`" :face font-lock-doc-markup-face))
|
||||||
|
(url
|
||||||
|
(:start "<" :body "https?:\\([^>\n]*\\(?:\n[ \t]*[^> \t\n][^>\n]*\\)*\\)"
|
||||||
|
:end ">" :face link))
|
||||||
(latex
|
(latex
|
||||||
(:start "\\(" :end "\\)" :face font-lock-string-face))
|
(:start "\\(" :end "\\)" :face font-lock-string-face))
|
||||||
(tex
|
(tex
|
||||||
|
@ -55,7 +58,7 @@
|
||||||
(const :function))
|
(const :function))
|
||||||
:value-type sexp)))
|
:value-type sexp)))
|
||||||
|
|
||||||
(defcustom simple-comment-markup-set 'org
|
(defcustom simple-comment-markup-set '(org url)
|
||||||
"docstring"
|
"docstring"
|
||||||
:type '(choice symbol (repeat symbol)))
|
:type '(choice symbol (repeat symbol)))
|
||||||
|
|
||||||
|
@ -110,11 +113,12 @@ This must not include any capturing groups."
|
||||||
(length (plist-get pattern :start)))))
|
(length (plist-get pattern :start)))))
|
||||||
patterns)))
|
patterns)))
|
||||||
(body-rx
|
(body-rx
|
||||||
(rx-to-string
|
(or (plist-get pattern :body)
|
||||||
`(seq (not (any space ,@confounding-start-characters))
|
(rx-to-string
|
||||||
|
`(seq (not (any space ,@confounding-start-characters))
|
||||||
(optional
|
(optional
|
||||||
(*? not-newline)
|
(*? not-newline)
|
||||||
(not space))))))
|
(not space)))))))
|
||||||
`((,(rx (regexp simple-comment-markup-pre-rx)
|
`((,(rx (regexp simple-comment-markup-pre-rx)
|
||||||
(group (literal (plist-get pattern :start)))
|
(group (literal (plist-get pattern :start)))
|
||||||
(group (regexp body-rx))
|
(group (regexp body-rx))
|
||||||
|
|
Loading…
Reference in New Issue