TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: factorize code in configuration-layer/make-all-packages

This commit is contained in:
syl20bnr 2017-01-15 21:40:07 -05:00
parent d2168806b6
commit 3162f0e19b
3 changed files with 13 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
core/core-configuration-layer.el
View File

@ -889,11 +889,15 @@ Return nil if package object is not found."
"Return a sorted list of PACKAGES objects."
(sort packages (lambda (x y) (string< (symbol-name x) (symbol-name y)))))
(defun configuration-layer/make-all-packages (&optional usedp)
"Create objects for _all_ packages.
USEDP if non-nil indicates that made packages are used packages."
(configuration-layer/make-packages-from-layers
(configuration-layer/get-layers-list) usedp))
(defun configuration-layer/make-all-packages ()
"Create objects for _all_ packages supported by Spacemacs."
(let ((all-layers (configuration-layer/get-layers-list))
(configuration-layer--load-packages-files t)
(configuration-layer--package-properties-read-onlyp t)
(configuration-layer--inhibit-warnings t))
(configuration-layer/discover-layers)
(configuration-layer/declare-layers all-layers)
(configuration-layer/make-packages-from-layers all-layers)))
(defun configuration-layer/make-packages-from-layers
(layer-names &optional usedp)

9
layers/+completion/helm/local/helm-spacemacs-help/helm-spacemacs-help.el
View File

@ -44,13 +44,8 @@
(defun helm-spacemacs-help//init (&optional arg)
(when (or arg (null helm-spacemacs--initialized))
(let ((configuration-layer--load-packages-files t)
(configuration-layer--package-properties-read-onlyp t)
(configuration-layer--inhibit-warnings t))
(configuration-layer/discover-layers)
(configuration-layer/declare-layers (configuration-layer/get-layers-list))
(configuration-layer/make-all-packages)
(setq helm-spacemacs--initialized t))))
(configuration-layer/make-all-packages)
(setq helm-spacemacs--initialized t)))
;;;###autoload
(defun helm-spacemacs-help (arg)

9
layers/+completion/ivy/local/ivy-spacemacs-help/ivy-spacemacs-help.el
View File

@ -42,13 +42,8 @@
(defun ivy-spacemacs-help//init (&optional arg)
(when (or arg (null ivy-spacemacs--initialized))
(let ((configuration-layer--load-packages-files t)
(configuration-layer--package-properties-read-onlyp t)
(configuration-layer--inhibit-warnings t))
(configuration-layer/discover-layers)
(configuration-layer/declare-layers (configuration-layer/get-layers-list))
(configuration-layer/make-all-packages)
(setq ivy-spacemacs--initialized t))))
(configuration-layer/make-all-packages)
(setq ivy-spacemacs--initialized t)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Docs