awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-24 16:30:58 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add :mindepth property to doom-files-in

Browse Source 
+ don't error out if directory doesn't exist.
+ :depth now starts from 0, instead of 1
This commit is contained in:
Henrik Lissner
2018-06-12 16:01:11 +02:00
parent acbad5ca01
commit 399591b951
2 changed files with 36 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/core-dispatcher.el
View File

@@ -673,10 +673,10 @@ If RECOMPILE-P is non-nil, only recompile out-of-date files."
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$" :depth 1)
(doom-files-in doom-private-dir :match "\\.elc$" :depth 2)
for path in (append (doom-files-in doom-emacs-dir :match "\\.elc$" :depth 0)
(doom-files-in doom-private-dir :match "\\.elc$" :depth 1)
(doom-files-in doom-core-dir :match "\\.elc$")
(doom-files-in doom-modules-dirs :match "\\.elc$" :depth 4))
(doom-files-in doom-modules-dirs :match "\\.elc$" :depth 3))
for truepath = (file-truename path)
if (file-exists-p path)
do (delete-file path)