[emacs] Apply lisp setup to minibuffer eval

This commit is contained in:
Correl Roush 2015-04-22 10:27:55 -04:00
parent 585ba7104f
commit 8fc7e301a3

View file

@ -425,16 +425,20 @@ A modern list api for Emacs. No 'cl required.
(use-package rainbow-delimiters (use-package rainbow-delimiters
:ensure t) :ensure t)
(mapc (lambda (lisp) (let ((lisp-mode-hooks
(let ((mode-hook (intern (concat lisp "-mode-hook")))) (mapcar (lambda (lisp)
(message (format "Installing LISP mode hook for %S" lisp)) (intern (concat lisp "-mode-hook")))
(add-hook mode-hook (lambda () (mapcar 'car (cddr '<<lisps()>>)))))
(mapc (lambda (hook)
(message (format "Installing LISP mode hook for %S" hook))
(add-hook hook (lambda ()
(show-paren-mode t) (show-paren-mode t)
(electric-indent-mode t) (electric-indent-mode t)
(paredit-mode t) (paredit-mode t)
(rainbow-delimiters-mode t) (rainbow-delimiters-mode t)
(rainbow-identifiers-mode t))))) (rainbow-identifiers-mode t))))
(mapcar 'car (cddr '<<lisps()>>))) (cons 'eval-expression-minibuffer-setup-hook
lisp-mode-hooks)))
#+END_SRC #+END_SRC
*** Lisp-Flavored Erlang *** Lisp-Flavored Erlang
#+name: programming #+name: programming