core: add parameter to configuration-layer/make-all-packages
New parameter `skip-layer-discovery', if non-nil then rediscovery of layers is skipped (used essentialy for the tests).
This commit is contained in:
parent
0c04d3892d
commit
14e690d82c
|
@ -889,13 +889,15 @@ Return nil if package object is not found."
|
||||||
"Return a sorted list of PACKAGES objects."
|
"Return a sorted list of PACKAGES objects."
|
||||||
(sort packages (lambda (x y) (string< (symbol-name x) (symbol-name y)))))
|
(sort packages (lambda (x y) (string< (symbol-name x) (symbol-name y)))))
|
||||||
|
|
||||||
(defun configuration-layer/make-all-packages ()
|
(defun configuration-layer/make-all-packages (&optional skip-layer-discovery)
|
||||||
"Create objects for _all_ packages supported by Spacemacs."
|
"Create objects for _all_ packages supported by Spacemacs.
|
||||||
|
If SKIP-LAYER-DISCOVERY is non-nil then do not check for new layers."
|
||||||
(let ((all-layers (configuration-layer/get-layers-list))
|
(let ((all-layers (configuration-layer/get-layers-list))
|
||||||
(configuration-layer--load-packages-files t)
|
(configuration-layer--load-packages-files t)
|
||||||
(configuration-layer--package-properties-read-onlyp t)
|
(configuration-layer--package-properties-read-onlyp t)
|
||||||
(configuration-layer--inhibit-warnings t))
|
(configuration-layer--inhibit-warnings t))
|
||||||
(configuration-layer/discover-layers)
|
(unless skip-layer-discovery
|
||||||
|
(configuration-layer/discover-layers))
|
||||||
(configuration-layer/declare-layers all-layers)
|
(configuration-layer/declare-layers all-layers)
|
||||||
(configuration-layer/make-packages-from-layers all-layers)))
|
(configuration-layer/make-packages-from-layers all-layers)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue