awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #5235 from ErnestDong/develop

Browse Source 
Filter directories when purging straight repos
This commit is contained in:
Henrik Lissner
2021-07-08 14:10:25 -04:00
committed by GitHub
parent 04eb44a610 8c3a83526b
commit bd5327f9cc
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
core/cli/packages.el
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)