Clean up quelpa build repos on package deletion
This commit is contained in:
parent
74c5f1111a
commit
7c20a43be6
1 changed files with 10 additions and 4 deletions
|
@ -269,14 +269,20 @@ appropriate."
|
|||
(doom-initialize)
|
||||
(unless (package-installed-p 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)
|
||||
(error "Could not initialize QUELPA"))
|
||||
(when (assq name quelpa-cache)
|
||||
(setq quelpa-cache (assq-delete-all name quelpa-cache))
|
||||
(quelpa-save-cache))
|
||||
(package-delete (cadr (assq name package-alist)) force-p))
|
||||
(not (package-installed-p name)))
|
||||
(quelpa-save-cache)
|
||||
(setq quelpa-p t))
|
||||
(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)))
|
||||
|
||||
|
||||
;;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue