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

Remove compile-lite task + simple-p option in doom/recompile

Browse source
This commit is contained in:
Henrik Lissner 2017-02-20 13:11:12 -05:00
parent dc9133fcc7
commit cd713291f3
2 changed files with 9 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Makefile
View file

@ -20,9 +20,6 @@ autoloads: init.el
compile: init.el clean compile: init.el clean
@$(EMACS) -l core/core.el -f 'doom/recompile' @$(EMACS) -l core/core.el -f 'doom/recompile'
compile-lite: init.el clean
@$(EMACS) -l core/core.el --eval '(doom/recompile t)'
clean: clean:
@rm -fv init.elc @rm -fv init.elc
@find {core,modules} -type f -iname '*.elc' -exec rm \-fv {} \; @find {core,modules} -type f -iname '*.elc' -exec rm \-fv {} \;

19
core/core-packages.el
View file

@ -428,7 +428,7 @@ There should be a measurable benefit from this, but it may take a while."
(interactive) (interactive)
;; Ensure all relevant config files are loaded. This way we don't need ;; Ensure all relevant config files are loaded. This way we don't need
;; eval-when-compile and require blocks scattered all over. ;; eval-when-compile and require blocks scattered all over.
(doom-initialize-packages t noninteractive) (doom-initialize-packages (not noninteractive) noninteractive)
(let ((targets (let ((targets
(append (list (expand-file-name "init.el" doom-emacs-dir) (append (list (expand-file-name "init.el" doom-emacs-dir)
(expand-file-name "core.el" doom-core-dir)) (expand-file-name "core.el" doom-core-dir))
@ -436,15 +436,14 @@ There should be a measurable benefit from this, but it may take a while."
(file-expand-wildcards (expand-file-name "autoload/*.el" doom-core-dir)))) (file-expand-wildcards (expand-file-name "autoload/*.el" doom-core-dir))))
(n 0) (n 0)
results) results)
(unless simple-p (dolist (path (doom--module-paths))
(dolist (path (doom--module-paths)) (nconc targets
(nconc targets (cl-remove-if (lambda (file)
(cl-remove-if (lambda (file) (let ((fname (file-name-nondirectory file)))
(let ((fname (file-name-nondirectory file))) (or (string= fname ".")
(or (string= fname ".") (string= fname ".."))))
(string= fname "..")))) (reverse
(reverse (directory-files-recursively path "\\.el$")))))
(directory-files-recursively path "\\.el$"))))))
(dolist (file targets) (dolist (file targets)
(push (cons (file-relative-name file doom-emacs-dir) (push (cons (file-relative-name file doom-emacs-dir)
(and (byte-recompile-file file nil 0) (and (byte-recompile-file file nil 0)