emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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)))
;; ;;