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

dotspacemacs: C-u C-c C-c executes `dotspacemacs/config` at the end

This commit is contained in:
syl20bnr 2015-03-02 00:27:36 -05:00
parent d2e4ad1535
commit acfde2e01d
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
core/core-dotspacemacs.el
View File

@ -130,12 +130,20 @@ NOT USED FOR NOW :-)")
"2 sec" nil
(lambda () (message "C-c C-c to apply your changes."))))
(defun dotspacemacs/sync-configuration-layers ()
"Synchronize declared layers in dotfile with spacemacs."
(interactive)
(defun dotspacemacs/sync-configuration-layers (arg)
"Synchronize declared layers in dotfile with spacemacs.
If ARG is non nil then `dotspacemacs/config' is called at the end of the
synchronization."
(interactive "P")
(let ((dotspacemacs-loading-progress-bar nil))
(load-file buffer-file-name)
(configuration-layer/sync)))
(configuration-layer/sync)
(if arg
(progn
(dotspacemacs|call-func dotspacemacs/config "Calling dotfile config...")
(message "Done (`dotspacemacs/config' function has been called)."))
(message "Done."))))
(defun dotspacemacs/location ()
"Return the absolute path to the spacemacs dotfile."