commit 156588f392e3d06fc5f19a4277e244760664c517 parent 0c9193f5bd70f171ea39d4dcae9cf944a835ac59 Author: Thomas Frössman <thomasf@jossystem.se> Date: Sun, 3 Nov 2019 17:04:16 +0100 reload theme: handle errors, unload feature to reread defvar Diffstat:
| M | minimal-init/init.el | | | 12 | +++++++++--- |
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/minimal-init/init.el b/minimal-init/init.el @@ -77,14 +77,20 @@ (disable-theme v))) (global-set-key (kbd "<f4>") 'dev-disable-all-themes) +(defvar dev-reload-theme-last-setting nil) (defun dev-reload-theme() (interactive) + (unless dev-reload-theme-last-setting + (setq dev-reload-theme-last-setting (copy-sequence custom-enabled-themes))) (dev-save-elisp-buffers) - (load "solarized") - (let ((themes (reverse custom-enabled-themes))) + (unload-feature 'solarized t) + (load-library "solarized") + (let ((themes (reverse (or dev-reload-theme-last-setting + custom-enabled-themes)))) (dev-disable-all-themes) (dolist (v themes) - (load-theme v t)))) + (load-theme v t))) + (setq dev-reload-theme-last-setting nil)) (global-set-key (kbd "<f5>") 'dev-reload-theme) (defun dev-save-elisp-buffers ()