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

@package: fix :pin property

Browse source
This commit is contained in:
Henrik Lissner 2017-02-19 19:00:58 -05:00
parent d675332980
commit 357dbe881e
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/core-packages.el
View file

@ -342,13 +342,21 @@ This macro serves a purely declarative purpose, and are used to fill
`doom-packages', so that functions like `doom/packages-install' can operate on `doom-packages', so that functions like `doom/packages-install' can operate on
them." them."
(declare (indent defun)) (declare (indent defun))
(let ((pkg-recipe (plist-get plist :recipe)) (let* ((old-plist (assq name doom-packages))
(pkg-pin (plist-get plist :pin))) (pkg-recipe (or (plist-get plist :recipe)
(and old-plist (plist-get old-plist :recipe))))
(pkg-pin (or (plist-get plist :pin)
(and old-plist (plist-get old-plist :pin)))))
(when (= 0 (mod (length pkg-recipe) 2)) (when (= 0 (mod (length pkg-recipe) 2))
(plist-put plist :recipe (cons name pkg-recipe))) (plist-put plist :recipe (cons name pkg-recipe)))
(when (and pkg-recipe pkg-pin) (when (and pkg-recipe pkg-pin)
(plist-put plist :pkg-pin nil)) (plist-put plist :pin nil))
`(add-to-list 'doom-packages ',(cons name plist) t))) `(progn
(when ,(and pkg-pin t)
(add-to-list 'package-pinned-packages ,(cons name pkg-pin)))
(when ,(and old-plist t)
(assq-delete-all ',name doom-packages))
(push ',(cons name plist) doom-packages))))
(defmacro @depends-on (module submodule) (defmacro @depends-on (module submodule)
"Declares that this module depends on another. MODULE is a keyword, and "Declares that this module depends on another. MODULE is a keyword, and