Eval :ignore/:freeze in package! plists

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

View file

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