From 7c20a43be684bf4d87e17747ed8b0bc3b40ab02c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 10 Jun 2017 23:32:59 +0200 Subject: [PATCH] Clean up quelpa build repos on package deletion --- core/autoload/packages.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/core/autoload/packages.el b/core/autoload/packages.el index 9ed02de43..09c77b855 100644 --- a/core/autoload/packages.el +++ b/core/autoload/packages.el @@ -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))) ;;