From e19dde931f9ec768d142a3f2c7bb4b6779ac4d4a Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Sun, 6 Sep 2015 21:55:36 +0300
Subject: [PATCH] Add highlighting for geiser-custom--defcustom/defface

---
 elisp/geiser-custom.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/elisp/geiser-custom.el b/elisp/geiser-custom.el
index f1a4adc..bf15bc9 100644
--- a/elisp/geiser-custom.el
+++ b/elisp/geiser-custom.el
@@ -30,6 +30,7 @@
   :group 'faces)
 
 (defmacro geiser-custom--defface (face def group doc)
+  (declare (doc-string 4))
   (let ((face (intern (format "geiser-font-lock-%s" face))))
     `(defface ,face (face-default-spec ,def)
        ,(format "Face for %s." doc)
@@ -49,6 +50,7 @@
   (add-to-list 'geiser-custom--memoized-vars name))
 
 (defmacro geiser-custom--defcustom (name &rest body)
+  (declare (doc-string 3) (debug (name body)))
   `(progn
      (geiser-custom--memoize ',name)
      (defcustom ,name ,@body)))
@@ -63,4 +65,14 @@
 (put 'geiser-custom--defcustom 'lisp-indent-function 2)
 
 
+(defconst geiser-custom-font-lock-keywords
+  (eval-when-compile
+    `((,(concat "(\\(geiser-custom--\\(?:defcustom\\|defface\\)\\)\\_>"
+                "[ \t'\(]*"
+                "\\(\\(?:\\sw\\|\\s_\\)+\\)?")
+       (1 font-lock-keyword-face)
+       (2 font-lock-variable-name-face nil t)))))
+
+(font-lock-add-keywords 'emacs-lisp-mode geiser-custom-font-lock-keywords)
+
 (provide 'geiser-custom)
-- 
2.11.4.GIT