ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Cleanup auto-init function

Browse source
This commit is contained in:
Tom Willemse 2015-05-09 19:12:55 +02:00
parent 1bda53e97d
commit 96e30cf2a0
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/.emacs.d/init.el
View file

@ -45,10 +45,11 @@
The loaded file should be `LIBRARY-init', either `.el' or `.elc' The loaded file should be `LIBRARY-init', either `.el' or `.elc'
will do." will do."
`(with-eval-after-load ',library (let ((name (if (symbolp library)
(load ,(concat (if (symbolp library) (symbol-name library)
(symbol-name library) library)))
library) "-init")))) `(with-eval-after-load ',library
(load ,(concat name "-init")))))
;; http://www.lunaryorn.com/2013/06/25/introducing-with-eval-after-load/ ;; http://www.lunaryorn.com/2013/06/25/introducing-with-eval-after-load/
(defmacro stante-after (feature &rest forms) (defmacro stante-after (feature &rest forms)