From 3c43acd5af2d3500d86fe2bb4283632b3fe0a535 Mon Sep 17 00:00:00 2001 From: Sisiutl Date: Thu, 7 Nov 2024 23:11:22 +0100 Subject: new hyprpaper configuration type scaffolding --- sigils/home/services/hyprland.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) 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}"))) -- cgit v1.2.3