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

Raise docks after quitting full screen mode

Browse source 
* exwm-layout.el (exwm-layout-unset-fullscreen): Raise docks lowered
when entering full screen mode.
This commit is contained in:
Chris Feng 2018-01-14 23:46:04 +08:00
parent 46c4036306
commit 895633fe61
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
exwm-layout.el
View file

@ -28,6 +28,7 @@
(require 'exwm-core) (require 'exwm-core)
(defvar exwm-floating-border-width) (defvar exwm-floating-border-width)
(defvar exwm-workspace--id-struts-alist)
(defun exwm-layout--resize-container (id container x y width height (defun exwm-layout--resize-container (id container x y width height
&optional container-only) &optional container-only)
@ -259,6 +260,13 @@
(exwm-layout--show exwm--id) (exwm-layout--show exwm--id)
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:ewmh:set-_NET_WM_STATE :window exwm--id :data [])) (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) (xcb:flush exwm--connection)
(setq exwm--ewmh-state (setq exwm--ewmh-state
(delq xcb:Atom:_NET_WM_STATE_FULLSCREEN exwm--ewmh-state)) (delq xcb:Atom:_NET_WM_STATE_FULLSCREEN exwm--ewmh-state))