summaryrefslogtreecommitdiff
path: root/emacs/guix-guile.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-09-24 20:10:29 +0300
committerAlex Kost <alezost@gmail.com>2015-09-26 22:38:43 +0300
commit730bf80888d016d1bde15d7c777cb46d1616c084 (patch)
tree03043c827d722374c07f99b5b69e15240b27d1b1 /emacs/guix-guile.el
parentc284e78fa4453fb2045547758995bc61ba182993 (diff)
emacs: devel: Highlight 'modify-phases' keywords.
* emacs/guix-guile.el (guix-guile-keyword-regexp): New function. * emacs/guix-devel.el (guix-devel-faces): New custom group. (guix-devel-modify-phases-keyword): New face. (guix-devel-modify-phases-keyword-regexp, guix-devel-font-lock-keywords): New variables. (guix-devel-modify-phases-font-lock-matcher, guix-devel-modify-phases-font-lock-pre): New functions. (guix-devel-mode): Adjust to add/remove font-lock-keywords.
Diffstat (limited to 'emacs/guix-guile.el')
-rw-r--r--emacs/guix-guile.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/emacs/guix-guile.el b/emacs/guix-guile.el
index 35a97d77a3..63322d7ed8 100644
--- a/emacs/guix-guile.el
+++ b/emacs/guix-guile.el
@@ -59,6 +59,10 @@ Return nil, if current buffer does not define a module."
Transform elisp ARG (nil or non-nil) to the guile boolean (#f or #t)."
(concat "#" (prin1-to-string (if arg 't 'f))))
+(defun guix-guile-keyword-regexp (keyword)
+ "Return regexp to find guile KEYWORD."
+ (format "(\\(%s\\)\\_>" keyword))
+
(defun guix-guile-make-call-expression (proc &rest args)
"Return \"(PROC ARGS ...)\" string.
PROC and ARGS should be strings."