summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-06-06 03:55:42 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-06-06 03:55:42 +0200
commit54ca5d09076ea1ad29076075abe30a32594e8c5f (patch)
tree5fb3c60efc0bcc7de57ed587bc0d4c303cc23f02
parent06cb8552677d5b315c2b75f84944265f7feb570d (diff)
downloadgeiser-guile-54ca5d09076ea1ad29076075abe30a32594e8c5f.tar.gz
geiser-guile-54ca5d09076ea1ad29076075abe30a32594e8c5f.tar.bz2
Racket: correct font lock for define/match
We could probably generalize to more function definition forms, but this is a start.
-rw-r--r--elisp/geiser-racket.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 0b4f009..b372eb5 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -253,9 +253,15 @@ using start-geiser, a procedure in the geiser/server module."
;;; Keywords and syntax
+(setq geiser-racket-font-lock-forms
+ '(("^#lang\\>" . 0)
+ ("\\[\\(else\\)\\>" . 1)
+ ("(\\(define/match\\) +\\(\\w+\\)+\\b"
+ (1 font-lock-keyword-face)
+ (2 font-lock-function-name-face))))
+
(defun geiser-racket--keywords ()
- (append '(("^#lang\\>" . 0)
- ("\\[\\(else\\)\\>" . 1))
+ (append geiser-racket-font-lock-forms
(when geiser-racket-extra-keywords
`((,(format "[[(]%s\\>" (regexp-opt geiser-racket-extra-keywords 1))
. 1)))))