[elpa] externals/exwm 895633f 1/2: Raise docks after quitting full screen mode

[Chris Feng]

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

    Raise docks after quitting full screen mode
    
    * exwm-layout.el (exwm-layout-unset-fullscreen): Raise docks lowered
    when entering full screen mode.
---
 exwm-layout.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/exwm-layout.el b/exwm-layout.el
index b5835cb..5177ef5 100644
--- a/exwm-layout.el
+++ b/exwm-layout.el
@@ -28,6 +28,7 @@
 (require 'exwm-core)
 
 (defvar exwm-floating-border-width)
+(defvar exwm-workspace--id-struts-alist)
 
 (defun exwm-layout--resize-container (id container x y width height
                                          &optional container-only)
@@ -259,6 +260,13 @@
     (exwm-layout--show exwm--id)
     (xcb:+request exwm--connection
         (make-instance 'xcb:ewmh:set-_NET_WM_STATE :window exwm--id :data []))
+    ;; Raise X windows with struts set again.
+    (dolist (pair exwm-workspace--id-struts-alist)
+      (xcb:+request exwm--connection
+          (make-instance 'xcb:ConfigureWindow
+                         :window (car pair)
+                         :value-mask xcb:ConfigWindow:StackMode
+                         :stack-mode xcb:StackMode:Above)))
     (xcb:flush exwm--connection)
     (setq exwm--ewmh-state
           (delq xcb:Atom:_NET_WM_STATE_FULLSCREEN exwm--ewmh-state))