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

Clean up quelpa build repos on package deletion

Browse Source
This commit is contained in:
Henrik Lissner
2017-06-10 23:32:59 +02:00
parent 74c5f1111a
commit 7c20a43be6
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
core/autoload/packages.el
View File

@ -269,14 +269,20 @@ appropriate."
(doom-initialize) (doom-initialize)
(unless (package-installed-p name) (unless (package-installed-p name)
(user-error "%s isn't installed" name)) (user-error "%s isn't installed" name))
(let ((inhibit-message (not doom-debug-mode))) (let ((inhibit-message (not doom-debug-mode))
quelpa-p)
(unless (quelpa-setup-p) (unless (quelpa-setup-p)
(error "Could not initialize QUELPA")) (error "Could not initialize QUELPA"))
(when (assq name quelpa-cache) (when (assq name quelpa-cache)
(setq quelpa-cache (assq-delete-all name quelpa-cache)) (setq quelpa-cache (assq-delete-all name quelpa-cache))
(quelpa-save-cache)) (quelpa-save-cache)
(package-delete (cadr (assq name package-alist)) force-p)) (setq quelpa-p t))
(not (package-installed-p name))) (package-delete (cadr (assq name package-alist)) force-p)
(unless (package-installed-p name)
(let ((pkg-build-dir (expand-file-name (symbol-name name) quelpa-build-dir)))
(when (and quelpa-p (file-directory-p pkg-build-dir))
(delete-directory pkg-build-dir t)))
t)))
;; ;;