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

helm-spacemacs: load packages at first invocation only

Browse source 
Use the universal argument to force an update, that is
SPC u SPC f e h
This commit is contained in:
syl20bnr 2015-08-12 08:59:25 -04:00
parent ba63987030
commit afbd850177
1 changed files with 18 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
spacemacs/local/helm-spacemacs/helm-spacemacs.el
View file

@ -30,36 +30,36 @@
(require 'helm)
(require 'core-configuration-layer)
(defvar helm-spacemacs-all-layers '()
(defvar helm-spacemacs-all-layers nil
"Alist of all configuration layers.")
(defvar helm-spacemacs-all-packages '()
(defvar helm-spacemacs-all-packages nil
"Hash table of all packages in all layers.")
;;;###autoload
(define-minor-mode helm-spacemacs-mode
"Layers discovery with helm interface."
:group 'spacemacs
:global t
(setq helm-spacemacs-all-layers nil
helm-spacemacs-all-packages nil)
(if helm-spacemacs-mode
(progn
(mapc (lambda (layer) (push (configuration-layer/make-layer layer)
helm-spacemacs-all-layers))
(configuration-layer/get-layers-list))
(dolist (layer helm-spacemacs-all-layers)
(unless (configuration-layer/layer-usedp (oref layer :name))
(configuration-layer//load-layer-files layer '("funcs.el"
"config.el"))))
(setq helm-spacemacs-all-packages (configuration-layer/get-packages
helm-spacemacs-all-layers)))))
:global t)
(defun helm-spacemacs//init (&optional arg)
(when (or arg (null helm-spacemacs-all-packages))
(mapc (lambda (layer) (push (configuration-layer/make-layer layer)
helm-spacemacs-all-layers))
(configuration-layer/get-layers-list))
(dolist (layer helm-spacemacs-all-layers)
(unless (configuration-layer/layer-usedp (oref layer :name))
(configuration-layer//load-layer-files layer '("funcs.el"
"config.el"))))
(setq helm-spacemacs-all-packages (configuration-layer/get-packages
helm-spacemacs-all-layers))))
;;;###autoload
(defun helm-spacemacs ()
(defun helm-spacemacs (arg)
"Layers discovery with helm interface."
(interactive)
(interactive "P")
(helm-spacemacs-mode)
(helm-spacemacs//init arg)
(helm :buffer "*helm: spacemacs*"
:sources `(,(helm-spacemacs//documentation-source)
,(helm-spacemacs//layer-source)