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

Fix doom//clean-byte-compiled-files

Browse source
This commit is contained in:
Henrik Lissner 2018-05-24 19:09:29 +02:00
parent 6ea5430c4d
commit b629f4f507
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
core/autoload/modules.el
View file

@ -358,19 +358,20 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files."
;;;###autoload
(defun doom//clean-byte-compiled-files ()
"Delete all the compiled elc files in your Emacs configuration. This excludes
compiled packages.'"
"Delete all the compiled elc files in your Emacs configuration and private
module. This does not include your byte-compiled, third party packages.'"
(interactive)
(cl-loop with default-directory = doom-emacs-dir
for path in (append (doom-files-in doom-emacs-dir :match "\\.elc$")
(doom-files-in doom-psuedo-module-dirs :match "\\.elc$" :full t)
(doom-files-under doom-core-dir :match "\\.elc$")
(doom-files-under doom-modules-dirs :match "\\.elc$"))
for path in (append (doom-files-in doom-emacs-dir :match "\\.elc$" :depth 1)
(doom-files-in doom-psuedo-module-dirs :match "\\.elc$" :depth 1)
(doom-files-in doom-core-dir :match "\\.elc$")
(doom-files-in doom-modules-dirs :match "\\.elc$" :depth 4))
for truepath = (file-truename path)
if (file-exists-p path)
do (delete-file path)
and do
(message "✓ Deleted %s"
(if (file-in-directory-p truepath default-directory)
(file-relative-name truepath)
(abbreviate-file-name path)))
finally do (message "Everything is clean")))
(print! (green "✓ Deleted %%s")
(if (file-in-directory-p truepath default-directory)
(file-relative-name truepath)
(abbreviate-file-name truepath)))
finally do (print! (bold (green "Everything is clean")))))