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

Change how private & disabled packages are marked

Browse source 
They are now included in doom-packages, but with :private t or :disabled
t properties. This allows us to search for them if we wish (e.g. for
doom info).
This commit is contained in:
Henrik Lissner 2018-06-10 17:14:49 +02:00
parent 88f1ae3797
commit edb6fd1964
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 26 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

29
core/core-packages.el
View file

@ -753,31 +753,32 @@ Returns t if package is successfully registered, and nil if it was disabled
elsewhere." elsewhere."
(declare (indent defun)) (declare (indent defun))
(doom--assert-stage-p 'packages #'package!) (doom--assert-stage-p 'packages #'package!)
(cond ((memq name doom-disabled-packages) nil) (let* ((old-plist (cdr (assq name doom-packages)))
((let ((disable (plist-get plist :disable)))
(and disable (eval disable)))
(push name doom-disabled-packages)
(setq doom-packages (map-delete doom-packages name))
nil)
((let* ((old-plist (assq name doom-packages))
(pkg-recipe (or (plist-get plist :recipe) (pkg-recipe (or (plist-get plist :recipe)
(and old-plist (plist-get old-plist :recipe)))) (and old-plist (plist-get old-plist :recipe))))
(pkg-pin (or (plist-get plist :pin) (pkg-pin (or (plist-get plist :pin)
(and old-plist (plist-get old-plist :pin))))) (and old-plist (plist-get old-plist :pin))))
(pkg-disable (or (plist-get plist :disable)
(and old-plist (plist-get old-plist :disable)))))
(when pkg-disable
(add-to-list 'doom-disabled-packages name nil #'eq))
(when pkg-recipe (when pkg-recipe
(when (= 0 (% (length pkg-recipe) 2)) (when (= 0 (% (length pkg-recipe) 2))
(plist-put plist :recipe (cons name pkg-recipe))) (setq plist (plist-put plist :recipe (cons name pkg-recipe))))
(when pkg-pin (when pkg-pin
(plist-put plist :pin nil))) (setq plist (plist-put plist :pin nil))))
(dolist (prop '(:ignore :freeze)) (dolist (prop '(:ignore :freeze))
(let ((val (plist-get plist prop))) (when-let* ((val (plist-get plist prop)))
(when val (setq plist (plist-put plist prop (eval val)))))
(plist-put plist prop (eval val))))) (when (file-in-directory-p (or (bound-and-true-p byte-compile-current-file)
load-file-name)
doom-private-dir)
(setq plist (plist-put plist :private t)))
`(progn `(progn
,(when (and pkg-pin t) ,(when (and pkg-pin t)
`(map-put package-pinned-packages ',name ,pkg-pin)) `(map-put package-pinned-packages ',name ,pkg-pin))
(map-put doom-packages ',name ',plist) (map-put doom-packages ',name ',plist)
t))))) (not ,pkg-disable))))
(defmacro packages! (&rest packages) (defmacro packages! (&rest packages)
"A convenience macro like `package!', but allows you to declare multiple "A convenience macro like `package!', but allows you to declare multiple