Commit 861e62c3145f

Vincent Demeester <vincent@sbr.pm>
2020-05-07 15:19:26
config-appearance.el: use advice-add instead of defadvice
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
main
1 parent 4f76a79
Changed files (1)
tools
emacs
config
config-appearance.el
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'.")