Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2025-04-04 18:19:40 +02:00
Code Issues Projects Releases Packages Wiki Activity

Refresh the tray icon background when updating the background color

Browse source
This commit is contained in:
Steven Allen 2022-11-05 08:21:39 -07:00
parent 743a1c72da
commit 00cbf8b20e
1 changed files with 8 additions and 1 deletions

9
exwm-systemtray.el
View file

@ -262,7 +262,14 @@ using 32-bit depth. Using `workspace-background' instead.")
"Refresh background color after theme change or workspace switch."
;; Only `workspace-background' is dependent on current theme and workspace.
(when (eq 'workspace-background exwm-systemtray-background-color)
(exwm-systemtray--set-background-color)))
(exwm-systemtray--set-background-color)
(xcb:+request exwm-systemtray--connection
(make-instance 'xcb:UnmapWindow
:window exwm-systemtray--embedder-window))
(xcb:+request exwm-systemtray--connection
(make-instance 'xcb:MapWindow
:window exwm-systemtray--embedder-window))
(xcb:flush exwm-systemtray--connection)))
(defun exwm-systemtray--set-background-color ()
"Change the background color of the embedder.