[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 4d5dd85 3/3: Add support for desktop and dock
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 4d5dd85 3/3: Add support for desktop and dock |
Date: |
Fri, 11 Dec 2015 04:14:33 +0000 |
branch: externals/exwm
commit 4d5dd85dcc49c8ee9f0c496b439b420eaaeae5af
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
Add support for desktop and dock
* exwm-manage.el (exwm-manage--manage-window): Add support for
_NET_WM_WINDOW_TYPE_DESKTOP and _NET_WM_WINDOW_TYPE_DOCK (they are not
reparented).
---
exwm-manage.el | 18 +++++++++++-------
1 files changed, 11 insertions(+), 7 deletions(-)
diff --git a/exwm-manage.el b/exwm-manage.el
index 58908a2..5b562ed 100644
--- a/exwm-manage.el
+++ b/exwm-manage.el
@@ -111,13 +111,17 @@ corresponding buffer.")
(xcb:+request exwm--connection
(make-instance 'xcb:MapWindow :window id))
(with-slots (x y width height) exwm--geometry
- ;; Reparent to virtual root (essential)
- (xcb:+request exwm--connection
- (make-instance 'xcb:ReparentWindow
- :window id
- :parent (frame-parameter exwm-workspace--current
- 'exwm-window-id)
- :x x :y y))
+ ;; Reparent to virtual root
+ (unless (or (memq xcb:Atom:_NET_WM_WINDOW_TYPE_DESKTOP
+ exwm-window-type)
+ (memq xcb:Atom:_NET_WM_WINDOW_TYPE_DOCK
+ exwm-window-type))
+ (xcb:+request exwm--connection
+ (make-instance 'xcb:ReparentWindow
+ :window id
+ :parent (frame-parameter exwm-workspace--current
+ 'exwm-window-id)
+ :x x :y y)))
;; Center window of type _NET_WM_WINDOW_TYPE_SPLASH
(when (memq xcb:Atom:_NET_WM_WINDOW_TYPE_SPLASH exwm-window-type)
(xcb:+request exwm--connection