andrew cooke wrote:
ps also, is it possible to make the parens darker in emacs highlighting? which face is it? thanks!
I've got the following in my .emacs:
(custom-set-variables ;; ... '(paren-mode (quote paren) nil (paren)) '(show-paren-delay 0) '(show-paren-mode t nil (paren)) ;;... '(paren-face-match ((((class color)) (:background "#f070ff")))) '(paren-face-mismatch ((((class color)) (:foreground "white" :background "red")))) '(paren-match ((t (:background "#f070ff")))) '(paren-mismatch ((t (:background "red")))) '(show-paren-match-face ((((class color)) (:background "#0070ff")))) '(show-paren-mismatch-face ((((class color)) (:background "red")))))
but then I have a comment in the file that says that except for the last one they have no effect.
I also have:
;; parenface ;; (from http://foldr.org/~michaelw/log/programming/lisp/lispin von haskell.org) ;;http://www.uncommon-sense.net/interests/programming/parenface.el
;; Add a paren-face to emacs and add support for it to the various lisp modes. ;; ;; Based on some code that Boris Schaefer ;; http://www.uncommon-sense.net/this-site/contact.html 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" ;;"#c070e0" zu violettlich ;;"#a0c0ff" zu hell "#80a0ff" ;; yeah well vielleicht zu schwach ))) "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