Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-30 14:38:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Properly place undecorated X windows

Browse source 
* exwm-manage.el (exwm-manage--manage-window): Convert absolute position
of undecorated X windows.
This commit is contained in:
Chris Feng 2016-04-21 19:30:55 +08:00
parent ddbbeda285
commit 367bdf2e19
1 changed files with 14 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
exwm-manage.el
View file

@ -126,12 +126,20 @@ corresponding buffer.")
exwm-window-type) exwm-window-type)
(memq xcb:Atom:_NET_WM_WINDOW_TYPE_DOCK (memq xcb:Atom:_NET_WM_WINDOW_TYPE_DOCK
exwm-window-type)) exwm-window-type))
(let ((frame-geometry (frame-parameter exwm-workspace--current
'exwm-geometry))
(workspace (frame-parameter exwm-workspace--current
'exwm-workspace)))
(when (and frame-geometry
(/= x 0)
(/= y 0))
(setq x (- x (slot-value frame-geometry 'x))
y (- y (slot-value frame-geometry 'y))))
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:ReparentWindow (make-instance 'xcb:ReparentWindow
:window id :window id
:parent (frame-parameter exwm-workspace--current :parent workspace
'exwm-workspace) :x x :y y))))
:x x :y y)))
;; Center window of type _NET_WM_WINDOW_TYPE_SPLASH ;; Center window of type _NET_WM_WINDOW_TYPE_SPLASH
(when (memq xcb:Atom:_NET_WM_WINDOW_TYPE_SPLASH exwm-window-type) (when (memq xcb:Atom:_NET_WM_WINDOW_TYPE_SPLASH exwm-window-type)
(xcb:+request exwm--connection (xcb:+request exwm--connection