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

Advised load-theme to perform post processing

Browse source
This commit is contained in:
syl20bnr 2014-10-16 12:32:05 -04:00
parent bc369a6e88
commit eee46fe7f4
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
spacemacs/funcs.el
View file

@ -270,13 +270,20 @@ argument takes the kindows rotate backwards."
(list spacemacs-cur-theme))))
(setq spacemacs-cur-theme (pop spacemacs-themes))
(message "Loading theme %s..." spacemacs-cur-theme)
(load-theme spacemacs-cur-theme t)
(load-theme spacemacs-cur-theme t))
(defadvice load-theme (after spacemacs/load-theme-adv activate)
"Perform post load processing."
(setq spacemacs-cur-theme (ad-get-arg 0))
(spacemacs/post-theme-init spacemacs-cur-theme))
(defun spacemacs/post-theme-init (theme)
" Some processing that needs to be done when the current theme has been
changed to THEME."
(interactive)
;; Define a face for each state
(if (fboundp 'spacemacs/set-state-faces)
(spacemacs/set-state-faces))
(powerline-reset))
;; From http://xugx2007.blogspot.ca/2007/06/benjamin-rutts-emacs-c-development-tips.html