guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/07: emacs: devel: Highlight gexp symbols.


From: Alex Kost
Subject: 01/07: emacs: devel: Highlight gexp symbols.
Date: Fri, 09 Oct 2015 13:53:23 +0000

alezost pushed a commit to branch master
in repository guix.

commit 1af9815d81090e10a0f89596482e572dc59e454b
Author: Alex Kost <address@hidden>
Date:   Sat Sep 26 22:42:07 2015 +0300

    emacs: devel: Highlight gexp symbols.
    
    Suggested by Ludovic Courtès <address@hidden>.
    
    * emacs/guix-devel.el (guix-devel-gexp-symbol): New face.
      (guix-devel-font-lock-keywords): Adjust to handle gexp symbols.
---
 emacs/guix-devel.el |   10 +++++++++-
 1 files changed, 9 insertions(+), 1 deletions(-)

diff --git a/emacs/guix-devel.el b/emacs/guix-devel.el
index 8a6fc1e..2e85a7e 100644
--- a/emacs/guix-devel.el
+++ b/emacs/guix-devel.el
@@ -43,6 +43,12 @@
   "Face for a `modify-phases' keyword ('delete', 'replace', etc.)."
   :group 'guix-devel-faces)
 
+(defface guix-devel-gexp-symbol
+  '((t :inherit font-lock-keyword-face))
+  "Face for gexp symbols ('#~', '#$', etc.).
+See Info node `(guix) G-Expressions'."
+  :group 'guix-devel-faces)
+
 (defcustom guix-devel-activate-mode t
   "If non-nil, then `guix-devel-mode' is automatically activated
 in Scheme buffers."
@@ -130,7 +136,9 @@ to find 'modify-phases' keywords."
   (save-excursion (up-list) (point)))
 
 (defvar guix-devel-font-lock-keywords
-  `((,(guix-guile-keyword-regexp "modify-phases")
+  `((,(rx (or "#~" "#$" "#$@" "#+" "#+@")) .
+     'guix-devel-gexp-symbol)
+    (,(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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]