From ba07fe575ef0f6144f4753245e8d9f0caaed7128 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 29 Jul 2019 03:47:12 +0200 Subject: [PATCH] Add {--no-{elpa,builds},-r,--repos} flags to 'doom purge' --- core/cli/packages.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/core/cli/packages.el b/core/cli/packages.el index 8659224e3..152a09c18 100644 --- a/core/cli/packages.el +++ b/core/cli/packages.el @@ -30,11 +30,21 @@ their elisp files are byte-compiled." (doom-packages-rebuild doom-auto-accept (member "-f" args)))) (defcli! (purge p) (&rest args) - "Deletes any unused packages and repos." + "Deletes any unused ELPA packages, straight builds, and (optionally) repos. + +By default, this does not purge repos. + +Available options: + +--no-elpa Don't purge ELPA packages +--no-builds Don't purge unneeded (built) packages +--repos Purge unused repos" (doom--ensure-autoloads-while (straight-check-all) - (doom-packages-purge 'elpa-p 'build-p - (member "-f" args) + (doom-packages-purge (not (member "--no-elpa" args)) + (not (member "--no-builds" args)) + (or (member "-r" args) + (member "--repos" args)) doom-auto-accept))) ;; (defcli! rollback () ; TODO rollback