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

Revert "Refactor doom-initialize-packages"

Browse source 
This reverts commit ea4d0a50cb.

Fixes #148
This commit is contained in:
Henrik Lissner 2017-07-26 17:07:10 +02:00
parent 1d15a22bc3
commit aa255d9cb6
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 29 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

21
core/core-packages.el
View file

@ -185,7 +185,7 @@ to speed up startup."
(unless (file-exists-p doom-autoload-file)
(quiet! (doom/reload-autoloads))))
(defun doom-initialize-packages (&optional force-p)
(defun doom-initialize-packages (&optional force-p load-p)
"Crawls across your emacs.d to fill `doom-modules' (from init.el) and
`doom-packages' (from packages.el files), if they aren't set already.
@ -193,7 +193,6 @@ If FORCE-P is non-nil, do it even if they are.
This aggressively reloads core autoload files."
(doom-initialize force-p)
(unwind-protect
(let ((noninteractive t)
(load-fn
(lambda (file &optional noerror)
@ -203,18 +202,24 @@ This aggressively reloads core autoload files."
(error (format "(doom-initialize-packages) %s in %s: %s"
(car ex)
(file-relative-name file doom-emacs-dir)
(error-message-string ex))))))))
(error-message-string ex))
:error))))))
(when (or force-p (not doom-modules))
(setq doom-modules nil)
(funcall load-fn (expand-file-name "init.el" doom-emacs-dir))
(dolist (file (directory-files doom-core-dir t "core-[^.]+\\.el$" t))
(funcall load-fn file)))
(funcall load-fn (doom-module-path :private user-login-name "init.el") t)
(when load-p
(cl-loop for file
in (append (nreverse (file-expand-wildcards (expand-file-name "core*.el" doom-core-dir)))
(file-expand-wildcards (expand-file-name "autoload/*.el" doom-core-dir))
(doom--module-paths "config.el"))
do (funcall load-fn file t)))
(doom|finalize))
(when (or force-p (not doom-packages))
(setq doom-packages nil)
(funcall load-fn (expand-file-name "packages.el" doom-core-dir))
(dolist (file (doom--module-paths "packages.el"))
(funcall load-fn file t))))
(doom|finalize)))
(funcall load-fn file t)))))
(defun doom-initialize-modules (modules)
"Adds MODULES to `doom-modules'. MODULES must be in mplist format.
@ -571,7 +576,7 @@ If ONLY-RECOMPILE-P is non-nil, only recompile out-of-date files."
(interactive "P")
;; Ensure all relevant config files are loaded and up-to-date. This way we
;; don't need eval-when-compile and require blocks scattered all over.
(doom-initialize-packages t)
(doom-initialize-packages t noninteractive)
(let ((targets
(cond ((equal (car command-line-args-left) "--")
(cl-loop for file in (cdr command-line-args-left)