Give fixed windows a property so that tinywm doesn't drag them but wi…

…ll drag other non-reparented windows; don't focus windows with tinywm; that's not tiny enough

module/guile-wm/draw.scm

@@ -19,6 +19,7 @@
   #:use-module (xcb xml)
   #:use-module (guile-wm color)
   #:use-module (guile-wm focus)
+  #:use-module (guile-wm icccm)
   #:use-module (guile-wm shared)
   #:export (with-gc with-font with-pixmap basic-window-create
                     fixed-window-create))
@@ -64,6 +65,9 @@ consists of key-press, structure-notify, and exposure."
    #:bit-gravity 'north-west #:event-mask events #:override-redirect #t)
   window)
 
+(define (fixed-window-atom)
+  (xref (reply-for intern-atom #f "_GUILE_WM_FIXED") 'atom))
+
 (define* (fixed-window-create x y width height border
                               #:optional (events basic-events)
                               #:key (focused? #t))
@@ -85,4 +89,12 @@ the window will also keep the focus."
     ((visibility-notify-event visibility #:window window)
      (when (not (eq? (xref visibility 'state) 'unobscured))
        (configure-window (xref visibility 'window) #:stack-mode 'above))))
+  (let ((fixed-atom (fixed-window-atom)))
+   (change-property 'replace window fixed-atom
+                    (pre-defined-atom 'integer) 8 #(1 0 0 0)))
   window)
+
+(define-public (fixed-window? window)
+  (xid=
+   (xref (get-window-property window (fixed-window-atom)) 'type)
+   (pre-defined-atom 'integer)))

module/guile-wm/module/tinywm.scm

@@ -17,6 +17,7 @@
   #:use-module (guile-wm shared)
   #:use-module (guile-wm log)
   #:use-module (guile-wm focus)
+  #:use-module (guile-wm draw)
   #:use-module (guile-wm module randr)
   #:use-module (xcb xml xproto)
   #:use-module (xcb event-loop)
@@ -75,10 +76,8 @@
   (win (xref button-press 'child))
 
   ;; Don't try to move/resize the root window.
-  (unless (= (xid->integer (win)) 0)
-    (when (assv-ref (reverse-reparents) (xid->integer (win)))
-      (set-focus (assv-ref (reverse-reparents) (xid->integer (win))))
-      (on-window-click (win) button-press))))
+  (unless (or (= (xid->integer (win)) 0) (fixed-window? (win)))
+    (on-window-click (win) button-press)))
 
 (wm-init
  (lambda ()