Add picom service configuration for rincewind

oni/home/config/rincewind.scm

@@ -37,6 +37,9 @@
                           home-xmodmap-service
                           home-openssh-service
                           home-kitty-service))
+  #:use-module ((oni home services compton)
+                #:select (home-picom-service-type
+                          home-picom-configuration))
   #:use-module ((oni home services dunst)
                 #:select (home-dunst-default-service))
   #:use-module ((oni home services emacs)
@@ -92,6 +95,46 @@
     `((with-branch . ,(string-append (package-name package) "=master"))))
    package))
 
+(define rincewind-picom-service
+  (service home-picom-service-type
+           (home-picom-configuration
+            (backend "glx")
+            (glx-no-stencil #t)
+            (detect-transient #t)
+            (shadow #t)
+            (shadow-radius 5)
+            (shadow-opacity 85)
+            (shadow-offset-x 15)
+            (shadow-offset-y 15)
+            (shadow-exclude
+             '("name = 'mowedline'"
+               "class_g = 'trayer'"
+               "bounding_shaped"
+               "name = 'xfreerdp'"))
+            (wintypes
+             '((dnd (shadow . #f))
+               (dock (shadow . #f))))
+            (corner-radius 15)
+            (inactive-opacity 75)
+            (active-opacity 95)
+            (frame-opacity 100)
+            (inactive-opacity-override #t)
+            (blur-background #t)
+            (blur-background-frame #t)
+            (blur
+             '((method . "dual_kawase")
+               (strength . 6.9)))
+            (blur-background-fixed #t)
+            (blur-background-exclude
+             '("name *= 'rofi'"
+               "name = 'xfreerdp'"))
+            (focus-exclude
+             '("name *= 'rofi'"
+               "name = 'xfreerdp'"))
+            (fading #t)
+            (fade-in-step 3)
+            (fade-out-step 3))))
+
 (home-environment
  (packages (list mpv mpv-mpris easytag
                  (specification->package+output "glibc-locales")
@@ -126,6 +169,7 @@
    home-xmodmap-service
    home-openssh-service
    home-kitty-service
+   rincewind-picom-service
 
    ;; This has to be the first extension because it needs to be added to the
    ;; configuration last.