summaryrefslogtreecommitdiff
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
parentc284e78fa4453fb2045547758995bc61ba182993 (diff)
downloadpatches-730bf80888d016d1bde15d7c777cb46d1616c084.tar
patches-730bf80888d016d1bde15d7c777cb46d1616c084.tar.gz
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.
-rw-r--r--emacs/guix-devel.el55
-rw-r--r--emacs/guix-guile.el4
2 files changed, 58 insertions, 1 deletions
diff --git a/emacs/guix-devel.el b/emacs/guix-devel.el
index 6de49be3e6..8a6fc1ec08 100644
--- a/emacs/guix-devel.el
+++ b/emacs/guix-devel.el
@@ -33,6 +33,16 @@
"Settings for Guix development utils."
:group 'guix)
+(defgroup guix-devel-faces nil
+ "Faces for `guix-devel-mode'."
+ :group 'guix-devel
+ :group 'guix-faces)
+
+(defface guix-devel-modify-phases-keyword
+ '((t :inherit font-lock-preprocessor-face))
+ "Face for a `modify-phases' keyword ('delete', 'replace', etc.)."
+ :group 'guix-devel-faces)
+
(defcustom guix-devel-activate-mode t
"If non-nil, then `guix-devel-mode' is automatically activated
in Scheme buffers."
@@ -94,6 +104,41 @@ Interactively, use the module defined by the current scheme file."
guix-use-substitutes)
"#:dry-run?" (guix-guile-boolean guix-dry-run)))))))
+
+;;; Font-lock
+
+(defvar guix-devel-modify-phases-keyword-regexp
+ (rx (+ word))
+ "Regexp for a 'modify-phases' keyword ('delete', 'replace', etc.).")
+
+(defun guix-devel-modify-phases-font-lock-matcher (limit)
+ "Find a 'modify-phases' keyword.
+This function is used as a MATCHER for `font-lock-keywords'."
+ (ignore-errors
+ (down-list)
+ (or (re-search-forward guix-devel-modify-phases-keyword-regexp
+ limit t)
+ (set-match-data nil))
+ (up-list)
+ t))
+
+(defun guix-devel-modify-phases-font-lock-pre ()
+ "Skip the next sexp, and return the end point of the current list.
+This function is used as a PRE-MATCH-FORM for `font-lock-keywords'
+to find 'modify-phases' keywords."
+ (ignore-errors (forward-sexp))
+ (save-excursion (up-list) (point)))
+
+(defvar guix-devel-font-lock-keywords
+ `((,(guix-guile-keyword-regexp "modify-phases")
+ (1 'font-lock-keyword-face)
+ (guix-devel-modify-phases-font-lock-matcher
+ (guix-devel-modify-phases-font-lock-pre)
+ nil
+ (0 'guix-devel-modify-phases-keyword nil t))))
+ "A list of `font-lock-keywords' for `guix-devel-mode'.")
+
+
(defvar guix-devel-keys-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "b") 'guix-devel-build-package-definition)
@@ -122,7 +167,15 @@ bindings:
\\{guix-devel-mode-map}"
:init-value nil
:lighter " Guix"
- :keymap guix-devel-mode-map)
+ :keymap guix-devel-mode-map
+ (if guix-devel-mode
+ (progn
+ (setq-local font-lock-multiline t)
+ (font-lock-add-keywords nil guix-devel-font-lock-keywords))
+ (setq-local font-lock-multiline nil)
+ (font-lock-remove-keywords nil guix-devel-font-lock-keywords))
+ (when font-lock-mode
+ (font-lock-fontify-buffer)))
;;;###autoload
(defun guix-devel-activate-mode-maybe ()
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."