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

Fix package manager not :ignore'ing packages

Browse source
This commit is contained in:
Henrik Lissner 2018-06-13 22:15:08 +02:00
parent 6a6652d394
commit b6f9bc9675
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/autoload/packages.el
View file

@ -264,7 +264,7 @@ depended on.
Used by `doom//packages-autoremove'." Used by `doom//packages-autoremove'."
(let ((package-selected-packages (let ((package-selected-packages
(mapcar #'car (doom-get-packages :disabled nil)))) (mapcar #'car (doom-get-packages :ignored nil :disabled nil))))
(append (package--removable-packages) (append (package--removable-packages)
(cl-loop for pkg in package-selected-packages (cl-loop for pkg in package-selected-packages
if (and (doom-package-different-backend-p pkg) if (and (doom-package-different-backend-p pkg)
@ -272,7 +272,7 @@ Used by `doom//packages-autoremove'."
collect pkg)))) collect pkg))))
;;;###autoload ;;;###autoload
(cl-defun doom-get-missing-packages (&key (ignored 'any)) (defun doom-get-missing-packages (&optional include-ignored-p)
"Return a list of requested packages that aren't installed or built-in, but "Return a list of requested packages that aren't installed or built-in, but
are enabled (with a `package!' directive). Each element is a list whose CAR is are enabled (with a `package!' directive). Each element is a list whose CAR is
the package symbol, and whose CDR is a plist taken from that package's the package symbol, and whose CDR is a plist taken from that package's
@ -284,7 +284,7 @@ i.e. they have an :ignore property.
Used by `doom//packages-install'." Used by `doom//packages-install'."
(doom-initialize-packages) (doom-initialize-packages)
(cl-loop for (name . plist) (cl-loop for (name . plist)
in (doom-get-packages :ignored ignored :disabled nil) in (doom-get-packages :ignored (if include-ignored-p 'any) :disabled nil)
if (and (or (plist-get plist :pin) if (and (or (plist-get plist :pin)
(not (assq name package--builtins))) (not (assq name package--builtins)))
(or (not (assq name package-alist)) (or (not (assq name package-alist))