From 0e2433c7f681a46f60b9c483a82bc39ec390a18d Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Thu, 24 Sep 2015 21:19:25 +0300
Subject: Add general font-lock keywords for all implementations

Move general RNRS/SRFI keywords from "geiser-chicken" to "geiser-syntax".
---
 elisp/geiser-syntax.el | 43 ++++++++++++++++++++++++++++++++++---------
 1 file changed, 34 insertions(+), 9 deletions(-)

(limited to 'elisp/geiser-syntax.el')

diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index bc110d9..091a8b4 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -51,14 +51,30 @@
 
 
 ;;; Extra syntax keywords
-(defconst geiser-syntax--keywords
-  `(("\\[\\(else\\)\\>" . 1)
-    ("(\\(parameterize\\)\\>" . 1)
-    (,(rx "(" (group "define-syntax-rule") eow (* space)
-          (? "(") (? (group (1+ word))))
-      (1 font-lock-keyword-face)
-      (2 font-lock-function-name-face nil t))
-    (,(rx "(" (group "when") eow) . 1)))
+
+(defconst geiser-syntax--builtin-keywords
+  '("and-let*"
+    "cut"
+    "cute"
+    "define-condition-type"
+    "define-immutable-record-type"
+    "define-record-type"
+    "define-values"
+    "letrec*"
+    "match"
+    "match-lambda"
+    "match-lambda*"
+    "match-let"
+    "match-let*"
+    "match-letrec"
+    "parameterize"
+    "receive"
+    "require-extension"
+    "set!"
+    "unless"
+    "when"
+    "with-input-from-file"
+    "with-output-to-file"))
 
 (defun geiser-syntax--simple-keywords (keywords)
   "Return `font-lock-keywords' to highlight scheme KEYWORDS.
@@ -66,7 +82,16 @@ KEYWORDS should be a list of strings."
   (when keywords
     `((,(format "[[(]%s\\>" (regexp-opt keywords 1)) . 1))))
 
-(font-lock-add-keywords 'scheme-mode geiser-syntax--keywords)
+(defun geiser-syntax--keywords ()
+  (append
+   (geiser-syntax--simple-keywords geiser-syntax--builtin-keywords)
+   `(("\\[\\(else\\)\\>" . 1)
+     (,(rx "(" (group "define-syntax-rule") eow (* space)
+           (? "(") (? (group (1+ word))))
+      (1 font-lock-keyword-face)
+      (2 font-lock-function-name-face nil t)))))
+
+(font-lock-add-keywords 'scheme-mode (geiser-syntax--keywords))
 
 (geiser-impl--define-caller geiser-syntax--impl-kws keywords ()
   "A variable (or thunk returning a value) giving additional,
-- 
cgit v1.2.3