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) (defun doom--cli-packages-purge-repo (repo)
(let ((repo-dir (straight--repos-dir repo))) (let ((repo-dir (straight--repos-dir repo)))
(delete-directory repo-dir 'recursive) (when (file-directory-p repo-dir)
(delete-file (straight--modified-file repo)) (delete-directory repo-dir 'recursive)
(if (file-directory-p repo-dir) (delete-file (straight--modified-file repo))
(ignore (print! (error "Failed to purge repos/%s" repo))) (if (file-directory-p repo-dir)
(print! (success "Purged repos/%s" repo)) (ignore (print! (error "Failed to purge repos/%s" repo)))
t))) (print! (success "Purged repos/%s" repo))
t))))
(defun doom--cli-packages-purge-repos (repos) (defun doom--cli-packages-purge-repos (repos)
(if (not repos) (if (not repos)