From 02c980f319f60ad97d215437ca29eff500e533d6 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Wed, 16 Sep 2015 21:34:24 +0300 Subject: Add 'geiser-syntax--simple-keywords' Use this function instead of repeating the same code in each implementation. --- elisp/geiser-syntax.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'elisp/geiser-syntax.el') diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 9557f5e..bc110d9 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -60,6 +60,12 @@ (2 font-lock-function-name-face nil t)) (,(rx "(" (group "when") eow) . 1))) +(defun geiser-syntax--simple-keywords (keywords) + "Return `font-lock-keywords' to highlight scheme KEYWORDS. +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) (geiser-impl--define-caller geiser-syntax--impl-kws keywords () -- cgit v1.2.3