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

Fix a regression with systemtray

Browse source 
* exwm-systemtray.el (exwm-systemtray--on-workspace-switch)
(exwm-systemtray--on-randr-refresh): Instead of retrieving the real
frame height, manually calculate it with workarea height and
menu-bar/tool-bar size.
This commit is contained in:
Chris Feng 2019-08-11 00:00:00 +00:00
parent dd6f5c36ed
commit 1f2bd54c11
1 changed files with 25 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
exwm-systemtray.el
View file

@ -331,27 +331,37 @@ You shall use the default value if using auto-hide minibuffer."
"Reparent/Refresh the system tray in `exwm-workspace-switch-hook'." "Reparent/Refresh the system tray in `exwm-workspace-switch-hook'."
(exwm--log) (exwm--log)
(unless (exwm-workspace--minibuffer-own-frame-p) (unless (exwm-workspace--minibuffer-own-frame-p)
(xcb:+request exwm-systemtray--connection (let ((geometry (frame-geometry exwm-workspace--current)))
(make-instance 'xcb:ReparentWindow (xcb:+request exwm-systemtray--connection
:window exwm-systemtray--embedder-window (make-instance 'xcb:ReparentWindow
:parent (string-to-number :window exwm-systemtray--embedder-window
(frame-parameter exwm-workspace--current :parent (string-to-number
'window-id)) (frame-parameter exwm-workspace--current
:x 0 'window-id))
:y (- (frame-pixel-height exwm-workspace--current) :x 0
exwm-systemtray-height)))) :y (- (elt (elt exwm-workspace--workareas
exwm-workspace-current-index)
3)
(or (cddr (assq 'menu-bar-size geometry)) 0)
(or (cddr (assq 'tool-bar-size geometry)) 0)
exwm-systemtray-height)))))
(exwm-systemtray--refresh)) (exwm-systemtray--refresh))
(defun exwm-systemtray--on-randr-refresh () (defun exwm-systemtray--on-randr-refresh ()
"Reposition/Refresh the system tray in `exwm-randr-refresh-hook'." "Reposition/Refresh the system tray in `exwm-randr-refresh-hook'."
(exwm--log) (exwm--log)
(unless (exwm-workspace--minibuffer-own-frame-p) (unless (exwm-workspace--minibuffer-own-frame-p)
(xcb:+request exwm-systemtray--connection (let ((geometry (frame-geometry exwm-workspace--current)))
(make-instance 'xcb:ConfigureWindow (xcb:+request exwm-systemtray--connection
:window exwm-systemtray--embedder-window (make-instance 'xcb:ConfigureWindow
:value-mask xcb:ConfigWindow:Y :window exwm-systemtray--embedder-window
:y (- (frame-pixel-height exwm-workspace--current) :value-mask xcb:ConfigWindow:Y
exwm-systemtray-height)))) :y (- (elt (elt exwm-workspace--workareas
exwm-workspace-current-index)
3)
(or (cddr (assq 'menu-bar-size geometry)) 0)
(or (cddr (assq 'tool-bar-size geometry)) 0)
exwm-systemtray-height)))))
(exwm-systemtray--refresh)) (exwm-systemtray--refresh))
(defalias 'exwm-systemtray--on-struts-update (defalias 'exwm-systemtray--on-struts-update