new hyprpaper configuration type scaffolding

1 files changed, 25 insertions, 0 deletions

diff --git a/sigils/home/services/hyprland.scm b/sigils/home/services/hyprland.scm
index 696a88e..79a560e 100644
--- a/sigils/home/services/hyprland.scm
+++ b/sigils/home/services/hyprland.scm
@@ -211,3 +211,28 @@
    (compose identity)
    (default-value (home-hyprland-configuration))
    (description "Configure Hyprland by providing @file{~/.config/hypr/hyprland.conf}")))
+
+
+(define-configuration/no-serialization home-hyprpaper-configuration
+  (config
+   (hypr-config '())
+   "Hyprpaper configuration"))
+
+(define (hyprpaper-configuration->file config)
+  `(("hypr/hyprpaper.conf"
+     ,(apply
+       mixed-text-file
+       "hyprpaper-config"
+       (serialize-hypr-config
+        (home-hyprpaper-configuration-config config))))))
+
+(define home-hyprpaper-service-type
+  (service-type
+   (name 'home-hyprpaper)
+   (extensions
+    (list (service-extension
+           home-xdg-configuration-files-service-type
+           hyprpaper-configuration->file)))
+   (compose identity)
+   (default-value (home-hyprpaper-configuration))
+   (description "Configure Hyprpaper by providing @file{~/.config/hypr/hyprpaper.conf}")))