emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

doom/reload: recompile + reload compiled el files; silence byte compile

Browse source
This commit is contained in:
Henrik Lissner 2017-03-30 15:15:26 -04:00
parent de61d68652
commit 22d1969a52
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core-packages.el
View file

@ -254,7 +254,7 @@ Used by `require!' and `depends-on!'."
(defun doom--display-benchmark () (defun doom--display-benchmark ()
(message "Loaded %s packages in %.03fs" (message "Loaded %s packages in %.03fs"
(length doom--package-load-path) (eval-when-compile (length doom--package-load-path))
(setq doom-init-time (float-time (time-subtract after-init-time before-init-time))))) (setq doom-init-time (float-time (time-subtract after-init-time before-init-time)))))
@ -379,10 +379,12 @@ server, if necessary) by `doom/packages-install', `doom/packages-update' and
`doom/packages-autoremove'. " `doom/packages-autoremove'. "
(interactive) (interactive)
(if noninteractive (if noninteractive
(ignore-errors (progn
(message "Reloading...")
(require 'server) (require 'server)
(unless (server-eval-at "server" '(doom/reload)) (unless (ignore-errors (server-eval-at "server" '(doom/reload)))
(message "No active emacs session running to reload"))) (message "Recompiling")
(doom/recompile)))
(doom-initialize t) (doom-initialize t)
(doom/recompile) (doom/recompile)
(message "Reloaded %d packages" (length doom--package-load-path)))) (message "Reloaded %d packages" (length doom--package-load-path))))
@ -484,8 +486,10 @@ take a while."
(reverse (directory-files-recursively doom-core-dir "\\.el$")) (reverse (directory-files-recursively doom-core-dir "\\.el$"))
(reverse (directory-files-recursively doom-modules-dir "\\.el$")))))) (reverse (directory-files-recursively doom-modules-dir "\\.el$"))))))
(dolist (file targets) (dolist (file targets)
(when (byte-compile-file file) (when (quiet! (byte-compile-file file))
(message "+ Recompiling %s" file) (message "+ Recompiling %s" file)
(when (assoc (file-truename file) load-history)
(ignore-errors (load file nil t)))
(cl-incf n))) (cl-incf n)))
(if (= (length targets) 0) (if (= (length targets) 0)
(message "Nothing to recompile") (message "Nothing to recompile")