Merge pull request #5235 from ErnestDong/develop

Filter directories when purging straight repos
This commit is contained in:
Henrik Lissner 2021-07-08 14:10:25 -04:00 committed by GitHub
commit bd5327f9cc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -532,12 +532,13 @@ declaration) or dependency thereof that hasn't already been."
(defun doom--cli-packages-purge-repo (repo)
(let ((repo-dir (straight--repos-dir repo)))
(delete-directory repo-dir 'recursive)
(delete-file (straight--modified-file repo))
(if (file-directory-p repo-dir)
(ignore (print! (error "Failed to purge repos/%s" repo)))
(print! (success "Purged repos/%s" repo))
t)))
(when (file-directory-p repo-dir)
(delete-directory repo-dir 'recursive)
(delete-file (straight--modified-file repo))
(if (file-directory-p repo-dir)
(ignore (print! (error "Failed to purge repos/%s" repo)))
(print! (success "Purged repos/%s" repo))
t))))
(defun doom--cli-packages-purge-repos (repos)
(if (not repos)