djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix recompile elisp hook

This commit is contained in:
David Morgan 2021-09-06 20:59:40 +01:00
parent ab2f5baad7
commit fa5235f242
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
.emacs.d/lisp/init-emacs-lisp.el
View File

@ -13,19 +13,16 @@
:diminish)
(use-package emacs
:ensure nil
:config
;; From prelude-emacs-lisp.el
(defun recompile-elc-on-save ()
;; Based on prelude-emacs-lisp.el
(defun recompile-init-lisp ()
(when (and
(string-prefix-p (expand-file-name "lisp" user-emacs-directory) (file-truename buffer-file-name))
(file-exists-p (byte-compile-dest-file buffer-file-name)))
(emacs-lisp-byte-compile)))
(defun recompile-init-lisp-on-save ()
"Recompile your elc when saving an elisp file. (Adds buffer-local hook)"
(add-hook 'after-save-hook
(lambda ()
(when (and
(string-prefix-p user-emacs-directory (file-truename buffer-file-name))
(file-exists-p (byte-compile-dest-file buffer-file-name)))
(emacs-lisp-byte-compile)))
nil
t))
(add-hook 'after-save-hook 'recompile-init-lisp nil t))
;; From prelude-emacs-lisp.el
(defun visit-ielm ()
"Switch to default `ielm' buffer.
@ -41,7 +38,7 @@ Start `ielm' if it's not already running."
(rainbow-mode +1)
(rainbow-delimiters-mode +1)
(setq mode-name "EL")
(recompile-elc-on-save)))
(recompile-init-lisp-on-save)))
:bind
(:map emacs-lisp-mode-map
(("C-c C-z" . visit-ielm)