[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 895633f 1/2: Raise docks after quitting full scree
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 895633f 1/2: Raise docks after quitting full screen mode |
Date: |
Sun, 14 Jan 2018 10:58:12 -0500 (EST) |
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))