Add option to font-lock `defhydra'

* hydra.el (hydra-add-font-lock): New function. Fixes #32.
11 years ago · 216550ee23
parent bb38641260
commit 216550ee23
1 changed files with 8 additions and 0 deletions
--- a/hydra.el
+++ b/hydra.el
@ -111,6 +111,14 @@ It's possible to set this to nil.")
 (defface hydra-face-amaranth
    '((t (:foreground "#E52B50" :bold t)))
  "Amaranth Hydra can exit only through a blue head.")
+;;* Fontification
+(defun hydra-add-font-lock ()
+  "Fontify `defhydra' statements."
+  (font-lock-add-keywords
+   'emacs-lisp-mode
+   '(("(\\(defhydra\\)\\_> +\\(.*?\\)\\_>"
+      (1 font-lock-keyword-face)
+      (2 font-lock-type-face)))))

 ;;* Universal Argument
 (defvar hydra-base-map