38 lines
1.3 KiB
EmacsLisp
38 lines
1.3 KiB
EmacsLisp
;;; parenface.el --- Provide a face for parens in lisp modes.
|
|
;; By Dave Pearson <davep@davep.org>
|
|
;; $Revision: 1.1 $
|
|
|
|
;; Add a paren-face to emacs and add support for it to the various lisp modes.
|
|
;;
|
|
;; Based on some code that Boris Schaefer <boris@uncommon-sense.net> posted
|
|
;; to comp.lang.scheme in message <87hf8g9nw5.fsf@qiwi.uncommon-sense.net>.
|
|
|
|
(defvar paren-face 'paren-face)
|
|
|
|
(defface paren-face
|
|
'((((class color))
|
|
(:foreground "DimGray")))
|
|
"Face for displaying a paren."
|
|
:group 'faces)
|
|
|
|
(defmacro paren-face-add-support (keywords)
|
|
"Generate a lambda expression for use in a hook."
|
|
`(lambda ()
|
|
(let* ((regexp "(\\|)")
|
|
(match (assoc regexp ,keywords)))
|
|
(unless (eq (cdr match) paren-face)
|
|
(setq ,keywords (append (list (cons regexp paren-face)) ,keywords))))))
|
|
|
|
;; Keep the compiler quiet.
|
|
(eval-when-compile
|
|
(defvar scheme-font-lock-keywords-2 nil)
|
|
(defvar lisp-font-lock-keywords-2 nil))
|
|
|
|
(add-hook 'scheme-mode-hook (paren-face-add-support scheme-font-lock-keywords-2))
|
|
(add-hook 'lisp-mode-hook (paren-face-add-support lisp-font-lock-keywords-2))
|
|
(add-hook 'emacs-lisp-mode-hook (paren-face-add-support lisp-font-lock-keywords-2))
|
|
(add-hook 'lisp-interaction-mode-hook (paren-face-add-support lisp-font-lock-keywords-2))
|
|
|
|
(provide 'parenface)
|
|
|
|
;; parenface.el ends here
|