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

Eval :ignore/:freeze in package! plists

Browse source
This commit is contained in:
Henrik Lissner 2017-06-22 23:59:34 +02:00
parent c294effd8d
commit a5e2a5745b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/core-packages.el
View file

@ -416,13 +416,15 @@ them."
(plist-put plist :recipe (cons name pkg-recipe))) (plist-put plist :recipe (cons name pkg-recipe)))
(when pkg-pin (when pkg-pin
(plist-put plist :pin nil))) (plist-put plist :pin nil)))
(dolist (prop '(:ignore :freeze))
(when-let (val (plist-get plist prop))
(plist-put plist prop (eval val))))
`(progn `(progn
(when ,(and pkg-pin t) (when ,(and pkg-pin t)
(cl-pushnew (cons ',name ,pkg-pin) package-pinned-packages (cl-pushnew (cons ',name ,pkg-pin) package-pinned-packages
:test #'eq :key #'car)) :test #'eq :key #'car))
(when ,(and old-plist t) (when ,(and old-plist t)
(assq-delete-all ',name doom-packages)) (assq-delete-all ',name doom-packages))
;; :ignore and :freeze are handled upstream
(push ',(cons name plist) doom-packages)))) (push ',(cons name plist) doom-packages))))
(defmacro depends-on! (module submodule) (defmacro depends-on! (module submodule)