summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el8
1 files changed, 6 insertions, 2 deletions
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)