doom-install-package: clean up after failed quelpa install

This commit is contained in:
Henrik Lissner 2018-02-22 04:48:36 -05:00
parent d9d4b6afd5
commit 55c6244e9f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -278,7 +278,12 @@ example; the package name can be omitted)."
(recipe (plist-get plist :recipe)) (recipe (plist-get plist :recipe))
quelpa-upgrade-p) quelpa-upgrade-p)
(if recipe (if recipe
(condition-case-unless-debug _
(quelpa recipe) (quelpa recipe)
('error
(let ((pkg-build-dir (expand-file-name (symbol-name name) quelpa-build-dir)))
(when (file-directory-p pkg-build-dir)
(delete-directory pkg-build-dir t)))))
(package-install name)) (package-install name))
(when (package-installed-p name) (when (package-installed-p name)
(cl-pushnew (cons name plist) doom-packages :test #'eq :key #'car) (cl-pushnew (cons name plist) doom-packages :test #'eq :key #'car)