awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
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)
(let ((rdirs (straight--directory-files (straight--repos-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)
(cl-delete-if (doom-rpartial #'straight--checkhash straight--repo-cache)
(cl-remove-if (doom-rpartial #'straight--checkhash straight--repo-cache)
rdirs)
(cl-delete-if-not (doom-rpartial #'straight--checkhash straight--repo-cache)
(cl-remove-if-not (doom-rpartial #'straight--checkhash straight--repo-cache)
rdirs)))
(let (success)
(print-group!