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

Name all helper windows created by EXWM

Browse source 
* exwm-workspace.el (exwm-workspace--add-frame-as-workspace)
(exwm-workspace--init):
* exwm-input.el (exwm-input--init):
* exwm-floating.el (exwm-floating--set-floating): Name created
helper windows with prefix "EXWM".
This commit is contained in:
Adrián Medraño Calvo 2018-03-06 00:00:00 +00:00
parent 587a8cad1d
commit cf98e3d921
3 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
exwm-floating.el
View file

@ -274,12 +274,11 @@ This is also used by X window containers.")
:border-pixel exwm-floating--border-pixel :border-pixel exwm-floating--border-pixel
:override-redirect 1 :override-redirect 1
:colormap exwm-floating--border-colormap)) :colormap exwm-floating--border-colormap))
(exwm--debug (xcb:+request exwm--connection
(xcb:+request exwm--connection (make-instance 'xcb:ewmh:set-_NET_WM_NAME
(make-instance 'xcb:ewmh:set-_NET_WM_NAME :window frame-container
:window frame-container :data
:data (format "EXWM floating frame container for 0x%x" id)))
(format "floating frame container for 0x%x" id))))
;; Map it. ;; Map it.
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:MapWindow :window frame-container)) (make-instance 'xcb:MapWindow :window frame-container))

4
exwm-input.el
View file

@ -927,6 +927,10 @@ where both ORIGINAL-KEY and SIMULATED-KEY are key sequences."
:visual 0 :visual 0
:value-mask xcb:CW:EventMask :value-mask xcb:CW:EventMask
:event-mask xcb:EventMask:PropertyChange)) :event-mask xcb:EventMask:PropertyChange))
(xcb:+request exwm--connection
(make-instance 'xcb:ewmh:set-_NET_WM_NAME
:window exwm-input--timestamp-window
:data "EXWM: exwm-input--timestamp-window"))
(let ((atom "_TIME")) (let ((atom "_TIME"))
(setq exwm-input--timestamp-atom (setq exwm-input--timestamp-atom
(slot-value (xcb:+request-unchecked+reply exwm--connection (slot-value (xcb:+request-unchecked+reply exwm--connection

22
exwm-workspace.el
View file

@ -1228,13 +1228,12 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first."
:window container :window container
:value-mask xcb:ConfigWindow:StackMode :value-mask xcb:ConfigWindow:StackMode
:stack-mode xcb:StackMode:Below)) :stack-mode xcb:StackMode:Below))
(exwm--debug (xcb:+request exwm--connection
(xcb:+request exwm--connection (make-instance 'xcb:ewmh:set-_NET_WM_NAME
(make-instance 'xcb:ewmh:set-_NET_WM_NAME :window container
:window container :data
:data (format "EXWM workspace %d frame container"
(format "EXWM workspace %d frame container" (exwm-workspace--position frame))))
(exwm-workspace--position frame)))))
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:ReparentWindow (make-instance 'xcb:ReparentWindow
:window outer-id :parent container :x 0 :y 0)) :window outer-id :parent container :x 0 :y 0))
@ -1427,11 +1426,10 @@ applied to all subsequently created X frames."
xcb:CW:OverrideRedirect) xcb:CW:OverrideRedirect)
:background-pixmap xcb:BackPixmap:ParentRelative :background-pixmap xcb:BackPixmap:ParentRelative
:override-redirect 1)) :override-redirect 1))
(exwm--debug (xcb:+request exwm--connection
(xcb:+request exwm--connection (make-instance 'xcb:ewmh:set-_NET_WM_NAME
(make-instance 'xcb:ewmh:set-_NET_WM_NAME :window container
:window container :data "EXWM minibuffer container"))
:data "Minibuffer container")))
;; Reparent the minibuffer frame to the container. ;; Reparent the minibuffer frame to the container.
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:ReparentWindow (make-instance 'xcb:ReparentWindow