gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Eval unpin! logic at runtime

Browse Source
This commit is contained in:
Henrik Lissner 2020-01-15 00:31:12 -05:00
parent 4b2a9c8c38
commit 835f3f2c53
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
core/core-packages.el
View File

@ -317,20 +317,20 @@ can be used one of five ways:
(unpin! (:lang python) (:tools docker))
Or any combination of the above."
(dolist (target targets)
(cond
((eq target t)
(setq doom-pinned-packages nil))
((or (keywordp target)
(listp target))
(cl-destructuring-bind (category &optional module) (doom-enlist target)
(dolist (pkg doom-packages)
(when-let (mod (assq category (plist-get (cdr pkg) :modules)))
(and (or (null module)
(eq (cdr mod) module))
(assq-delete-all (car pkg) doom-pinned-packages))))))
((symbolp target)
(assq-delete-all target doom-pinned-packages)))))
`(dolist (target ',targets)
(cond
((eq target t)
(setq doom-pinned-packages nil))
((or (keywordp target)
(listp target))
(cl-destructuring-bind (category &optional module) (doom-enlist target)
(dolist (pkg doom-packages)
(when-let (mod (assq category (plist-get (cdr pkg) :modules)))
(and (or (null module)
(eq (cdr mod) module))
(assq-delete-all (car pkg) doom-pinned-packages))))))
((symbolp target)
(assq-delete-all target doom-pinned-packages)))))
(provide 'core-packages)
;;; core-packages.el ends here