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

Refactor subr-x out of doom/compile

Browse source
This commit is contained in:
Henrik Lissner 2017-06-05 20:19:46 +02:00
parent 341219f1bf
commit df92e47967
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/core-packages.el
View file

@ -567,16 +567,16 @@ components to feel its effects."
"Delete all compiled elc files in DOOM emacs, excluding compiled ELPA/QUELPA "Delete all compiled elc files in DOOM emacs, excluding compiled ELPA/QUELPA
package files." package files."
(interactive) (interactive)
(if-let (elc-files (let ((elc-files (append
(append
(let ((init-elc (expand-file-name "init.elc" doom-emacs-dir))) (let ((init-elc (expand-file-name "init.elc" doom-emacs-dir)))
(if (file-exists-p init-elc) (list init-elc))) (if (file-exists-p init-elc) (list init-elc)))
(directory-files-recursively doom-core-dir "\\.elc$") (directory-files-recursively doom-core-dir "\\.elc$")
(directory-files-recursively doom-modules-dir "\\.elc$"))) (directory-files-recursively doom-modules-dir "\\.elc$"))))
(if elc-files
(dolist (file elc-files) (dolist (file elc-files)
(delete-file file) (delete-file file)
(message "Deleting %s" (file-relative-name file doom-emacs-dir))) (message "Deleting %s" (file-relative-name file doom-emacs-dir)))
(message "Everything is clean"))) (message "Everything is clean"))))
;; ;;