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

This commit is contained in:
Henrik Lissner 2017-03-30 15:15:26 -04:00
parent de61d68652
commit 22d1969a52

View file

@ -254,7 +254,7 @@ Used by `require!' and `depends-on!'."
(defun doom--display-benchmark ()
(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)))))
@ -379,10 +379,12 @@ server, if necessary) by `doom/packages-install', `doom/packages-update' and
`doom/packages-autoremove'. "
(interactive)
(if noninteractive
(ignore-errors
(progn
(message "Reloading...")
(require 'server)
(unless (server-eval-at "server" '(doom/reload))
(message "No active emacs session running to reload")))
(unless (ignore-errors (server-eval-at "server" '(doom/reload)))
(message "Recompiling")
(doom/recompile)))
(doom-initialize t)
(doom/recompile)
(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-modules-dir "\\.el$"))))))
(dolist (file targets)
(when (byte-compile-file file)
(when (quiet! (byte-compile-file file))
(message "+ Recompiling %s" file)
(when (assoc (file-truename file) load-history)
(ignore-errors (load file nil t)))
(cl-incf n)))
(if (= (length targets) 0)
(message "Nothing to recompile")