Display 'done' after a theme is loaded

This commit is contained in:
Rostislav Svoboda 2016-11-01 14:16:39 +01:00 committed by bmag
parent 7581662d7e
commit 0fa634c11c
1 changed files with 5 additions and 2 deletions

View File

@ -209,8 +209,11 @@ package name does not match theme name + `-theme' suffix.")
(or (cdr (memq spacemacs--cur-theme dotspacemacs-themes))
dotspacemacs-themes)))
(setq spacemacs--cur-theme (pop spacemacs--cycle-themes))
(message "Loading theme %s..." spacemacs--cur-theme)
(spacemacs/load-theme spacemacs--cur-theme))
(let ((progress-reporter
(make-progress-reporter
(format "Loading theme %s..." spacemacs--cur-theme))))
(spacemacs/load-theme spacemacs--cur-theme)
(progress-reporter-done progress-reporter)))
(defadvice load-theme (after spacemacs/load-theme-adv activate)
"Perform post load processing."