about summary refs log tree commit diff
path: root/exwm-input.el
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2018-03-06T00·00+0000
committerAdrián Medraño Calvo <adrian@medranocalvo.com>2018-03-06T00·00+0000
commitcf98e3d921ea55bcd58f0b7b3071d84a9a8fbcd0 (patch)
treec771009eac83e2181960d9bc15c461843a713151 /exwm-input.el
parent587a8cad1db06f2735054ad2dff0d6346093a7be (diff)
Name all helper windows created by EXWM
* 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".
Diffstat (limited to 'exwm-input.el')
-rw-r--r--exwm-input.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/exwm-input.el b/exwm-input.el
index d194b53821..0c8853c5f3 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -927,6 +927,10 @@ where both ORIGINAL-KEY and SIMULATED-KEY are key sequences."
                      :visual 0
                      :value-mask xcb:CW:EventMask
                      :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"))
     (setq exwm-input--timestamp-atom
           (slot-value (xcb:+request-unchecked+reply exwm--connection