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

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

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!