commit 861e62c3145f2d6dc0f1566c3411f6eb665bdf9a parent 4f76a7974173a0400654fa4d57a8ebdb9a68482c Author: Vincent Demeester <vincent@sbr.pm> Date: Thu, 7 May 2020 15:19:26 +0200 config-appearance.el: use advice-add instead of defadvice Signed-off-by: Vincent Demeester <vincent@sbr.pm> Diffstat:
| M | tools/emacs/config/config-appearance.el | | | 9 | ++++++--- |
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/tools/emacs/config/config-appearance.el b/tools/emacs/config/config-appearance.el @@ -49,9 +49,6 @@ (global-unset-key (kbd "C-h h"))) ;; LoadTheme -(defadvice load-theme (before clear-previous-themes activate) - "Clear existing theme settings instead of layering them." - (mapc #'disable-theme custom-enabled-themes)) ;; -LoadTheme ;; UseTheme @@ -59,6 +56,12 @@ :config (setq custom-safe-themes t) + (defun sbr/before-load-theme (&rest args) + "Clear existing theme settings instead of layering them." + (mapc #'disable-theme custom-enabled-themes)) + + (advice-add 'load-theme :before #'sbr/before-load-theme) + (defvar contrib/after-load-theme-hook nil "Hook run after a color theme is loaded using `load-theme'.")