Add picom service configuration for rincewind

This commit is contained in:
Tom Willemse 2023-03-07 23:08:02 -08:00
parent f48c4fead0
commit 8e564967cf

View file

@ -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.