mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
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
:override-redirect 1
:colormap exwm-floating--border-colormap))
(exwm--debug
(xcb:+request exwm--connection
(make-instance 'xcb:ewmh:set-_NET_WM_NAME
:window frame-container
:data
(format "floating frame container for 0x%x" id))))
(xcb:+request exwm--connection
(make-instance 'xcb:ewmh:set-_NET_WM_NAME
:window frame-container
:data
(format "EXWM floating frame container for 0x%x" id)))
;; Map it.
(xcb:+request exwm--connection
(make-instance 'xcb:MapWindow :window frame-container))