From 740a937e41497baeb57d73a89db113bcdd7644ca Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 14 Feb 2009 22:15:09 +0100 Subject: Autodoc: try symbol at point first. Some cleanups. --- elisp/geiser-custom.el | 57 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 elisp/geiser-custom.el (limited to 'elisp/geiser-custom.el') diff --git a/elisp/geiser-custom.el b/elisp/geiser-custom.el new file mode 100644 index 0000000..591d11a --- /dev/null +++ b/elisp/geiser-custom.el @@ -0,0 +1,57 @@ +;; geiser-custom.el -- customization + +;; Copyright (C) 2009 Jose Antonio Ortega Ruiz + +;; Author: Jose Antonio Ortega Ruiz +;; Start date: Sat Feb 14, 2009 21:49 + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3 of the License, or +;; (at your option) any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Comentary: + +;; Utilities for handling custom variables and faces. + +;;; Code: + +(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) + `(defface ,face (face-default-spec ,def) + ,(format "Face for %s." doc) + :group ',group + :group 'geiser-faces + :group 'faces)) + +(put 'geiser-custom--defface 'lisp-indent-function 1) + + + +(provide 'geiser-custom) +;;; geiser-custom.el ends here -- cgit v1.2.3