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

core: remove dotspacemacs-verbose-loading

Browse source 
verbose is activate with --init-debug
This commit is contained in:
syl20bnr 2015-10-07 15:29:20 -04:00
parent 7a288656b1
commit 3c7ad38e4d
3 changed files with 4 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
core/core-dotspacemacs.el
View file

@ -49,9 +49,6 @@ then this is used. If ~/.spacemacs does not exist, then check
for init.el in dotspacemacs-directory and use this if it
exists. Otherwise, fallback to ~/.spacemacs")
(defvar dotspacemacs-verbose-loading nil
"If non nil output loading progess in `*Messages*' buffer.")
(defvar dotspacemacs-distribution 'spacemacs
"Base distribution to use. This is a layer contained in the directory
`+distribution'. For now available distributions are `spacemacs-base'

4
core/core-spacemacs-buffer.el
View file

@ -265,8 +265,8 @@ If TYPE is nil, just remove widgets."
(defun spacemacs-buffer/message (msg &rest args)
"Display MSG in message prepended with '(Spacemacs)'.
The message is displayed only if `dotspacemacs-verbose-loading' is non nil."
(when dotspacemacs-verbose-loading
The message is displayed only if `init-file-debug' is non nil."
(when init-file-debug
(message "(Spacemacs) %s" (apply 'format msg args))))
(defun spacemacs-buffer/warning (msg &rest args)

6
core/core-spacemacs.el
View file

@ -80,8 +80,6 @@ initialization."
;; shadow the universal argument
(setq-default evil-want-C-u-scroll t)
(dotspacemacs|call-func dotspacemacs/init "Calling dotfile init...")
(when init-file-debug
(setq-default dotspacemacs-verbose-loading t))
(dotspacemacs|call-func dotspacemacs/user-init "Calling dotfile user init...")
;; spacemacs init
(switch-to-buffer (get-buffer-create spacemacs-buffer-name))
@ -130,10 +128,10 @@ initialization."
;; bind-key is required by use-package
(spacemacs/load-or-install-package 'bind-key t)
(spacemacs/load-or-install-package 'use-package t)
(setq use-package-verbose dotspacemacs-verbose-loading)
(setq use-package-verbose init-file-debug)
;; package-build is required by quelpa
(spacemacs/load-or-install-package 'package-build t)
(setq quelpa-verbose dotspacemacs-verbose-loading
(setq quelpa-verbose init-file-debug
quelpa-dir (concat spacemacs-cache-directory "quelpa/")
quelpa-build-dir (expand-file-name "build" quelpa-dir)
quelpa-persistent-cache-file (expand-file-name "cache" quelpa-dir)