summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorDiogo F. S. Ramos <dfsr@riseup.net>2014-02-24 17:46:50 -0300
committerJose Antonio Ortega Ruiz <jao@gnu.org>2014-02-25 00:42:45 +0100
commit5fddde9ef9dc53fd3cc8aacda4f0ed5a9c3a2e52 (patch)
tree745f34f81908045d24a21c75f607d8ca2ed1dd60 /elisp
parentc00e7678d97beb0107740e408263931b88449886 (diff)
downloadgeiser-chez-5fddde9ef9dc53fd3cc8aacda4f0ed5a9c3a2e52.tar.gz
geiser-chez-5fddde9ef9dc53fd3cc8aacda4f0ed5a9c3a2e52.tar.bz2
Font lock `define-syntax-rule' like `define' procedures
`define-syntax-rule' is similar enough to procedure definitions that it should be highlight as a slightly different version of one. The faces were chosen to keep the same scheme used by `define-macro'. `define-syntax-rule' was removed from Racket's extra keywords as there is no need to special case it.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-racket.el3
-rw-r--r--elisp/geiser-syntax.el8
2 files changed, 7 insertions, 4 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index e466ce3..4c1b127 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -61,8 +61,7 @@ This executable is used by `run-gracket', and, if
:group 'geiser-racket)
(geiser-custom--defcustom geiser-racket-extra-keywords
- '("define-syntax-rule" "provide" "require"
- "unless" "when" "with-handlers")
+ '("provide" "require" "unless" "when" "with-handlers")
"Extra keywords highlighted in Racket buffers."
:type '(repeat string)
:group 'geiser-racket)
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 7a33770..8b427f6 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -52,8 +52,12 @@
;;; Extra syntax keywords
(defconst geiser-syntax--keywords
- '(("\\[\\(else\\)\\>" . 1)
- ("(\\(parameterize\\)\\>" . 1)))
+ `(("\\[\\(else\\)\\>" . 1)
+ ("(\\(parameterize\\)\\>" . 1)
+ (,(rx "(" (group "define-syntax-rule") eow (* space)
+ (? "(") (? (group (1+ word))))
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face))))
(font-lock-add-keywords 'scheme-mode geiser-syntax--keywords)