From 4e022873870e1d73bfb854f1663969e31333d9c0 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 17 Aug 2016 14:10:07 -0700 Subject: [PATCH] Add a custom elisp init hook, check-parens on save --- dotfiles/emacs.d/README.org | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 6ce2a804..8de2e690 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -2558,6 +2558,20 @@ Pyimport is disabled because it may be causing a performance problem. (switch-to-buffer buffer))) #+END_SRC **** emacs-lisp +***** Init hook +#+BEGIN_SRC emacs-lisp +(defvar imalison:check-parens nil) + +(defun imalison:maybe-check-parens () + (if imalison:check-parens + (check-parens))) + +(defun imalison:emacs-lisp-hook () + (elisp-slime-nav-mode t) + (add-hook 'write-file-functions 'imalison:maybe-check-parens nil t)) + +(add-hook 'emacs-lisp-mode-hook 'imalison:emacs-lisp-hook) +#+END_SRC ***** elisp-slime-nav #+BEGIN_SRC emacs-lisp (use-package elisp-slime-nav @@ -2569,9 +2583,7 @@ Pyimport is disabled because it may be causing a performance problem. elisp-slime-nav-find-elisp-thing-at-point elisp-slime-nav-describe-elisp-thing-at-point) :bind (:map elisp-slime-nav-mode-map - ("M-." . imalison:elisp-slime-nav)) - :init - (add-hook 'emacs-lisp-mode-hook (lambda () (elisp-slime-nav-mode t)))) + ("M-." . imalison:elisp-slime-nav))) #+END_SRC ***** macrostep Macrostep is an indespensible tool for writing emacs lisp macros. It lets you see pretty printed versions of the result of macro evaluation as the macro is evaluated