gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Only return non-nil if doom-packages-purge worked

Browse Source
This commit is contained in:
Henrik Lissner 2019-07-26 13:59:14 +02:00
parent 88096a81a9
commit 8834ba17e3
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 27 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
core/cli/packages.el
View File

@ -313,24 +313,30 @@ a list of packages that will be removed."
(print! (start "Searching for orphaned packages..."))
(cl-destructuring-bind (builds repos)
(doom--packages-to-purge)
(print-group!
(if builds-p
(and (doom--packages-purge builds "build" auto-accept-p
(straight--build-dir it)
(straight--modified-file it))
(straight-prune-build-cache))
(print! (info "Skipping builds")))
(if repos-p
(doom--packages-purge repos "repo" auto-accept-p
(straight--repos-dir it))
(print! (info "Skipping repos")))
(if (not elpa-p)
(print! (info "Skipping elpa packages"))
(unless (bound-and-true-p package--initialized)
(package-initialize))
(doom--packages-purge (mapcar #'symbol-name (mapcar #'car package-alist))
"package" auto-accept-p
(package-desc-dir (cadr (assq (intern it) package-alist))))
(when (file-directory-p package-user-dir)
(delete-directory package-user-dir t)))
t)))
(let (success)
(print-group!
(if builds-p
(and (doom--packages-purge builds "build" auto-accept-p
(straight--build-dir it)
(straight--modified-file it))
(setq success t)
(straight-prune-build-cache))
(print! (info "Skipping builds")))
(if repos-p
(and (doom--packages-purge repos "repo" auto-accept-p
(straight--repos-dir it))
(setq success t))
(print! (info "Skipping repos")))
(if (not elpa-p)
(print! (info "Skipping elpa packages"))
(unless (bound-and-true-p package--initialized)
(package-initialize))
(and (doom--packages-purge (mapcar #'symbol-name (mapcar #'car package-alist))
"package" auto-accept-p
(package-desc-dir (cadr (assq (intern it) package-alist))))
(setq success t))
(when (file-directory-p package-user-dir)
(delete-directory package-user-dir t)))
(when success
(doom--finalize-straight)
t)))))