From 0fa634c11cdbd67682ddf404fb41d7e030d2fd51 Mon Sep 17 00:00:00 2001 From: Rostislav Svoboda Date: Tue, 1 Nov 2016 14:16:39 +0100 Subject: [PATCH] Display 'done' after a theme is loaded --- core/core-themes-support.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/core/core-themes-support.el b/core/core-themes-support.el index 8ce818229..58a92cfb1 100644 --- a/core/core-themes-support.el +++ b/core/core-themes-support.el @@ -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."