core: inverse inhibition of :toggle messages
Makes more sense to inhibit at install time instead of configuration time.
This commit is contained in:
parent
b550945087
commit
ee6c353abd
|
@ -183,7 +183,9 @@ LAYER has to be installed for this method to work properly."
|
||||||
"If non-nil this package is excluded from all layers.")))
|
"If non-nil this package is excluded from all layers.")))
|
||||||
|
|
||||||
(defmethod cfgl-package-enabledp ((pkg cfgl-package) &optional inhibit-messages)
|
(defmethod cfgl-package-enabledp ((pkg cfgl-package) &optional inhibit-messages)
|
||||||
"Evaluate the `toggle' slot of passed PKG."
|
"Evaluate the `toggle' slot of passed PKG.
|
||||||
|
If INHIBIT-MESSAGES is non nil then any message emitted by the toggle evaluation
|
||||||
|
is ignored."
|
||||||
(let ((message-log-max (unless inhibit-messages message-log-max))
|
(let ((message-log-max (unless inhibit-messages message-log-max))
|
||||||
(toggle (oref pkg :toggle)))
|
(toggle (oref pkg :toggle)))
|
||||||
(eval toggle)))
|
(eval toggle)))
|
||||||
|
@ -987,7 +989,7 @@ return both used and unused packages."
|
||||||
(or (null usedp)
|
(or (null usedp)
|
||||||
(and (not (null (oref pkg :owners)))
|
(and (not (null (oref pkg :owners)))
|
||||||
(not (oref pkg :excluded))
|
(not (oref pkg :excluded))
|
||||||
(cfgl-package-enabledp pkg))))))))
|
(cfgl-package-enabledp pkg t))))))))
|
||||||
|
|
||||||
(defun configuration-layer//get-private-layer-dir (name)
|
(defun configuration-layer//get-private-layer-dir (name)
|
||||||
"Return an absolute path to the private configuration layer string NAME."
|
"Return an absolute path to the private configuration layer string NAME."
|
||||||
|
@ -1482,7 +1484,7 @@ wether the declared layer is an used one or not."
|
||||||
((null (oref pkg :owners))
|
((null (oref pkg :owners))
|
||||||
(spacemacs-buffer/message
|
(spacemacs-buffer/message
|
||||||
(format "%S ignored since it has no owner layer." pkg-name)))
|
(format "%S ignored since it has no owner layer." pkg-name)))
|
||||||
((not (cfgl-package-enabledp pkg t))
|
((not (cfgl-package-enabledp pkg))
|
||||||
(spacemacs-buffer/message (format "%S is toggled off." pkg-name)))
|
(spacemacs-buffer/message (format "%S is toggled off." pkg-name)))
|
||||||
(t
|
(t
|
||||||
;; load-path
|
;; load-path
|
||||||
|
|
Loading…
Reference in a new issue