Fix 'doom purge' not regrafting all repos on first use
This commit is contained in:
parent
243d69bb6d
commit
e502031412
1 changed files with 3 additions and 3 deletions
|
@ -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!
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue