elisp: improve special fontification regexps

This commit is contained in:
Henrik Lissner 2016-05-21 23:08:29 -04:00
parent 77266a136b
commit 2fa7504d3c

View file

@ -31,7 +31,7 @@
(font-lock-add-keywords (font-lock-add-keywords
nil `(("(\\(lambda\\)" (1 (doom/show-as ))) nil `(("(\\(lambda\\)" (1 (doom/show-as )))
("(\\(doom\\)\\(-[^) ]+\\)?)" (0 font-lock-keyword-face append)) ("(\\(\\(doom\\)\\(-[^) ]*\\)?\\)[) ]" (1 font-lock-builtin-face))
;; Highlight doom macros (macros are fontified in emacs 25+) ;; Highlight doom macros (macros are fontified in emacs 25+)
(,(concat (,(concat
"(\\(def-" "(\\(def-"
@ -43,9 +43,9 @@
(1 font-lock-keyword-face append)) (1 font-lock-keyword-face append))
(,(concat (,(concat
"(\\(" "(\\("
(regexp-opt '("λ" "in" "map" "after" "shut-up" "add-hook" (regexp-opt '("λ" "in" "map" "after" "shut-up" "add-hook"
"associate" "define-org-link" "ex" "associate" "define-org-link" "ex"
"define-org-section")) "define-org-section" "set"))
"!\\)") "!\\)")
(1 font-lock-keyword-face append)) (1 font-lock-keyword-face append))
;; Ert ;; Ert