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

Fix 'doom purge' not regrafting all repos on first use

Browse source
This commit is contained in:
Henrik Lissner 2019-08-22 16:12:22 -04:00
parent 243d69bb6d
commit e502031412
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/cli/packages.el
View file

@ -457,11 +457,11 @@ a list of packages that will be removed."
(cl-destructuring-bind (&optional builds-to-purge repos-to-purge repos-to-regraft) (cl-destructuring-bind (&optional builds-to-purge repos-to-purge repos-to-regraft)
(let ((rdirs (straight--directory-files (straight--repos-dir) nil nil 'sort)) (let ((rdirs (straight--directory-files (straight--repos-dir) nil nil 'sort))
(bdirs (straight--directory-files (straight--build-dir) nil nil 'sort))) (bdirs (straight--directory-files (straight--build-dir) nil nil 'sort)))
(list (cl-delete-if (doom-rpartial #'gethash straight--profile-cache) (list (cl-remove-if (doom-rpartial #'gethash straight--profile-cache)
bdirs) bdirs)
(cl-delete-if (doom-rpartial #'straight--checkhash straight--repo-cache) (cl-remove-if (doom-rpartial #'straight--checkhash straight--repo-cache)
rdirs) rdirs)
(cl-delete-if-not (doom-rpartial #'straight--checkhash straight--repo-cache) (cl-remove-if-not (doom-rpartial #'straight--checkhash straight--repo-cache)
rdirs))) rdirs)))
(let (success) (let (success)
(print-group! (print-group!