78 lines
2.0 KiB
EmacsLisp
78 lines
2.0 KiB
EmacsLisp
;;; geiser-custom.el -- customization utilities
|
||
|
||
;; Copyright (C) 2009, 2010, 2012 Jose Antonio Ortega Ruiz
|
||
|
||
;; This program is free software; you can redistribute it and/or
|
||
;; modify it under the terms of the Modified BSD License. You should
|
||
;; have received a copy of the license along with this program. If
|
||
;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
|
||
|
||
;; Start date: Sat Feb 14, 2009 21:49
|
||
|
||
|
||
|
||
(require 'font-lock)
|
||
(require 'geiser-base)
|
||
|
||
|
||
;;; Customization group:
|
||
|
||
(defgroup geiser nil
|
||
"Geiser framework for Scheme-Emacs interaction."
|
||
:group 'languages)
|
||
|
||
|
||
;;; Faces:
|
||
|
||
(defgroup geiser-faces nil
|
||
"Faces used by Geiser."
|
||
:group 'geiser
|
||
: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)
|
||
:group ',group
|
||
:group 'geiser-faces)))
|
||
|
||
(put 'geiser-custom--defface 'lisp-indent-function 1)
|
||
|
||
|
||
|
||
;;; Reload support:
|
||
|
||
(defvar geiser-custom--memoized-vars nil)
|
||
|
||
(defun geiser-custom--memoize (name)
|
||
(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)))
|
||
|
||
(defun geiser-custom--memoized-state ()
|
||
(let ((result))
|
||
(dolist (name geiser-custom--memoized-vars result)
|
||
(when (boundp name)
|
||
(push (cons name (symbol-value name)) result)))))
|
||
|
||
|
||
(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)
|