Remove rounded corners around the stumpwm modeline

- Redefine the ‘stumpwm::make-mode-line-window’ function to set the
  ‘_NET_WM_WINDOW_TYPE’ property to ‘_NET_WM_WINDOW_TYPE_DOCK’ so that it can be
  matched by window type.

- Specify that for picom any “dock” type windows should be excluded from getting
  rounded corners.

- Add ‘rounded-corners-exclude’ initializer for the ‘home-picom-configuration’.

1 files changed, 20 insertions, 0 deletions

diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config
index 1939a50..c566cf2 100644
--- a/oni/home/services/stumpwm/config
+++ b/oni/home/services/stumpwm/config
@@ -93,6 +93,26 @@ after it has been unlocked."
                   "^*5^B[VPN]^b^n "
                   ""))
             "%d "))
+
+;;; Redefinition of the make mode-line window to add the Dock window type.
+(defun stumpwm::make-mode-line-window (screen)
+  "Create a window suitable for a modeline."
+  (let ((window (xlib:create-window
+                 :parent (screen-root screen)
+                 :x 0 :y 0 :width 1 :height 1
+                 :background (stumpwm::alloc-color screen *mode-line-background-color*)
+                 :border (stumpwm::alloc-color screen *mode-line-border-color*)
+                 :border-width *mode-line-border-width*
+                 ;; You can click the modeline
+                 :event-mask (xlib:make-event-mask :button-press :exposure)
+                 ;; these windows are not controlled by the window manager
+                 :override-redirect :on)))
+    (xlib:change-property
+     window :_NET_WM_WINDOW_TYPE
+     (list (xlib:find-atom *display* :_NET_WM_WINDOW_TYPE_DOCK))
+     :atom 32)
+    window))
+
 (mode-line)
 
 ;;; Screenshots