Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 14:57:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Minor fixes for system tray

Browse source 
* exwm-systemtray.el (exwm-systemtray--embed): Default to visible if the
XEMBED_MAPPED flag is not set.
(exwm-systemtray--on-ClientMessage): Only embed new icons.  Ignore balloon
messages.
This commit is contained in:
Chris Feng 2016-02-19 20:18:29 +08:00
parent fc589b899b
commit 08bf970b16
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
exwm-systemtray.el
View file

@ -101,8 +101,13 @@ You shall use the default value if using auto-hide minibuffer.")
:value-mask xcb:CW:EventMask
:event-mask (logior xcb:EventMask:ResizeRedirect
xcb:EventMask:PropertyChange)))
(when (setq visible
(/= 0 (logand (slot-value info 'flags) xcb:xembed:MAPPED)))
(setq visible (slot-value info 'flags))
(if visible
(setq visible
(/= 0 (logand (slot-value info 'flags) xcb:xembed:MAPPED)))
;; Default to visible.
(setq visible t))
(when visible
(exwm--log "(System Tray) Map the window")
(xcb:+request exwm-systemtray--connection
(make-instance 'xcb:MapWindow :window icon)))
@ -245,13 +250,11 @@ You shall use the default value if using auto-hide minibuffer.")
(setq data32 (slot-value data 'data32)
opcode (elt data32 1))
(cond ((= opcode xcb:systemtray:opcode:REQUEST-DOCK)
(exwm-systemtray--embed (elt data32 2)))
((= opcode xcb:systemtray:opcode:BEGIN-MESSAGE)
;; FIXME
)
((= opcode xcb:systemtray:opcode:CANCEL-MESSAGE)
;; FIXME
)
(unless (assoc (elt data32 2) exwm-systemtray--list)
(exwm-systemtray--embed (elt data32 2))))
;; Not implemented (rarely used nowadays).
((or (= opcode xcb:systemtray:opcode:BEGIN-MESSAGE)
(= opcode xcb:systemtray:opcode:CANCEL-MESSAGE)))
(t
(exwm--log "(System Tray) Unknown opcode message: %s" obj)))))))