emacs: refresh exwm systemtray after changing theme

(to have the tray’s background colour match the theme’s)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 4355ad6..d6c94f8 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1481,7 +1481,8 @@ This function is intended for use with `ivy-ignore-buffers'."
   (load-theme 'tangomod t)
   (sml/apply-theme 'automatic)
   (font-lock-remove-keywords
-   'org-mode b/org-mode-font-lock-keywords))
+   'org-mode b/org-mode-font-lock-keywords)
+  (exwm-systemtray--refresh))
 
 (defun b/lights-off ()
   "Go dark."
@@ -1490,7 +1491,8 @@ This function is intended for use with `ivy-ignore-buffers'."
   (load-theme 'doom-tomorrow-night t)
   (sml/apply-theme 'automatic)
   (font-lock-add-keywords
-   'org-mode b/org-mode-font-lock-keywords t))
+   'org-mode b/org-mode-font-lock-keywords t)
+  (exwm-systemtray--refresh))
 
 (bind-keys
  ("C-c t d" . b/lights-off)