emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Don't auto-purge ELPA packages on 'doom refresh'

Browse source 
...or 'doom purge', without the -e or --elpa switches (or --all).
This commit is contained in:
Henrik Lissner 2019-09-09 19:21:39 -04:00
parent 0e1bbc4499
commit 4fda7cd287
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
core/cli/packages.el
View file

@ -39,19 +39,25 @@ their elisp files are byte-compiled."
(defcli! (purge p) (&rest args) (defcli! (purge p) (&rest args)
"Deletes any unused ELPA packages, straight builds, and (optionally) repos. "Deletes any unused ELPA packages, straight builds, and (optionally) repos.
By default, this does not purge repos. By default, this does not purge ELPA packages or repos. It is a good idea to run
'doom purge --all' once in a while, to stymy build-up of repos and ELPA
packages that could be taking up precious space.
Available options: Available options:
--no-elpa Don't purge ELPA packages --no-builds Don't purge unneeded (built) packages
--no-builds Don't purge unneeded (built) packages -e / --elpa Don't purge ELPA packages
--repos Purge unused repos" -r / --repos Purge unused repos
--all Purge builds, elpa packages and repos"
(doom--ensure-autoloads-while (doom--ensure-autoloads-while
(straight-check-all) (straight-check-all)
(doom-packages-purge (not (member "--no-elpa" args)) (doom-packages-purge (or (member "-e" args)
(member "--elpa" args)
(member "--all" args))
(not (member "--no-builds" args)) (not (member "--no-builds" args))
(or (member "-r" args) (or (member "-r" args)
(member "--repos" args)) (member "--repos" args)
(member "--all" args))
doom-auto-accept))) doom-auto-accept)))
;; (defcli! rollback () ; TODO rollback ;; (defcli! rollback () ; TODO rollback

2
core/core-cli.el
View file

@ -186,7 +186,7 @@ stale."
(setq success t)) (setq success t))
(and (doom-packages-rebuild doom-auto-accept) (and (doom-packages-rebuild doom-auto-accept)
(setq success t)) (setq success t))
(and (doom-packages-purge 'elpa-p 'builds-p nil doom-auto-accept) (and (doom-packages-purge nil 'builds-p nil doom-auto-accept)
(setq success t))) (setq success t)))
(doom-reload-package-autoloads (or success force-p)) (doom-reload-package-autoloads (or success force-p))
(doom-byte-compile nil 'recompile)) (doom-byte-compile nil 'recompile))