[elpa] externals/exwm b75c89c: Fix systemtray position when menu-bar / tool-bar is enabled

[Chris Feng]

branch: externals/exwm
commit b75c89cae2a1c4c70044f885c44a95fd2f9950dd
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix systemtray position when menu-bar / tool-bar is enabled
    
    * exwm-systemtray.el (exwm-systemtray--on-workspace-switch)
    (exwm-systemtray--on-randr-refresh): Take menu-bar / tool-bar into
    account when placing systemtray.
---
 exwm-systemtray.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/exwm-systemtray.el b/exwm-systemtray.el
index dea5dbb..ba1e388 100644
--- a/exwm-systemtray.el
+++ b/exwm-systemtray.el
@@ -330,9 +330,7 @@ You shall use the default value if using auto-hide 
minibuffer."
                                 (frame-parameter exwm-workspace--current
                                                  'window-id))
                        :x 0
-                       :y (- (elt (elt exwm-workspace--workareas
-                                       exwm-workspace-current-index)
-                                  3)
+                       :y (- (frame-pixel-height exwm-workspace--current)
                              exwm-systemtray-height))))
   (exwm-systemtray--refresh))
 
@@ -343,9 +341,7 @@ You shall use the default value if using auto-hide 
minibuffer."
         (make-instance 'xcb:ConfigureWindow
                        :window exwm-systemtray--embedder
                        :value-mask xcb:ConfigWindow:Y
-                       :y (- (elt (elt exwm-workspace--workareas
-                                       exwm-workspace-current-index)
-                                  3)
+                       :y (- (frame-pixel-height exwm-workspace--current)
                              exwm-systemtray-height))))
   (exwm-systemtray--refresh))