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

fix(lib): package! not overriding defaults

Browse source 
This regression was introduced in 5a5195b; it broke `package!`s ability
to override the recipes of packages declared by other modules, due to
some API assumptions that aren't true yet (in unpushed post 3.1 work).

Amend: 5a5195b84d
Fix: #6901
This commit is contained in:
Henrik Lissner 2022-10-22 20:02:36 +02:00
parent d25ff46d46
commit a1f8063485
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 19 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/doom-packages.el
View file

@ -458,15 +458,17 @@ also be a list of module keys."
(car key) (cdr key) doom-module-packages-file)) (car key) (cdr key) doom-module-packages-file))
(doom-packages--read file nil 'noerror)))) (doom-packages--read file nil 'noerror))))
(doom-context-with 'packages (doom-context-with 'packages
(when (assq :user module-list) (let ((user? (assq :user module-list)))
(when user?
;; We load the private packages file twice to populate ;; We load the private packages file twice to populate
;; `doom-disabled-packages' disabled packages are seen ASAP, and a ;; `doom-disabled-packages' disabled packages are seen ASAP...
;; second time to ensure privately overridden packages are properly
;; overwritten.
(let (doom-packages) (let (doom-packages)
(read-packages (cons :user nil)))) (read-packages (cons :user nil))))
(mapc #'read-packages module-list) (mapc #'read-packages module-list)
(nreverse doom-packages))))) ;; ...Then again to ensure privately overriden packages are properly
;; overwritten.
(if user? (read-packages (cons :user nil)))
(nreverse doom-packages))))))
(defun doom-package-pinned-list () (defun doom-package-pinned-list ()
"Return an alist mapping package names (strings) to pinned commits (strings)." "Return an alist mapping package names (strings) to pinned commits (strings)."