From cf98e3d921ea55bcd58f0b7b3071d84a9a8fbcd0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Adri=C3=A1n=20Medra=C3=B1o=20Calvo?=
 <adrian@medranocalvo.com>
Date: Tue, 6 Mar 2018 00:00:00 +0000
Subject: [PATCH] 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".
---
 exwm-floating.el  | 11 +++++------
 exwm-input.el     |  4 ++++
 exwm-workspace.el | 22 ++++++++++------------
 3 files changed, 19 insertions(+), 18 deletions(-)

diff --git a/exwm-floating.el b/exwm-floating.el
index 0c8fc6f..6f8f9d8 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -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))
diff --git a/exwm-input.el b/exwm-input.el
index d194b53..0c8853c 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
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 0a1984b..5178e50 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -1228,13 +1228,12 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first."
                        :window container
                        :value-mask xcb:ConfigWindow:StackMode
                        :stack-mode xcb:StackMode:Below))
-    (exwm--debug
-     (xcb:+request exwm--connection
-         (make-instance 'xcb:ewmh:set-_NET_WM_NAME
-                        :window container
-                        :data
-                        (format "EXWM workspace %d frame container"
-                                (exwm-workspace--position frame)))))
+    (xcb:+request exwm--connection
+        (make-instance 'xcb:ewmh:set-_NET_WM_NAME
+                       :window container
+                       :data
+                       (format "EXWM workspace %d frame container"
+                               (exwm-workspace--position frame))))
     (xcb:+request exwm--connection
         (make-instance 'xcb:ReparentWindow
                        :window outer-id :parent container :x 0 :y 0))
@@ -1427,11 +1426,10 @@ applied to all subsequently created X frames."
                                            xcb:CW:OverrideRedirect)
                        :background-pixmap xcb:BackPixmap:ParentRelative
                        :override-redirect 1))
-    (exwm--debug
-     (xcb:+request exwm--connection
-         (make-instance 'xcb:ewmh:set-_NET_WM_NAME
-                        :window container
-                        :data "Minibuffer container")))
+    (xcb:+request exwm--connection
+        (make-instance 'xcb:ewmh:set-_NET_WM_NAME
+                       :window container
+                       :data "EXWM minibuffer container"))
     ;; Reparent the minibuffer frame to the container.
     (xcb:+request exwm--connection
         (make-instance 'xcb:ReparentWindow