diff options
Diffstat (limited to 'sigils/home/services')
| -rw-r--r-- | sigils/home/services/hyprland.scm | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/sigils/home/services/hyprland.scm b/sigils/home/services/hyprland.scm index 5380160..01856fc 100644 --- a/sigils/home/services/hyprland.scm +++ b/sigils/home/services/hyprland.scm @@ -33,6 +33,7 @@ ((? string? e) e) (() "") (('rgba color) (format #f "rgba(~a)" (symbol->string color))) + (('rgb color) (format #f "rgb(~a)" (symbol->string color))) ;; Turn a list into a series of comma-separated terms ((e lst ...) (apply string-append @@ -49,7 +50,6 @@ (apply string-append `(,(align nestness) ,(serialize-term term) " {\n" ,@(map (lambda (e) - ;; (serialize-config e (1+ nestness)) (serialize-config e (1+ nestness))) expressions) ,(align nestness) "}\n"))) @@ -219,6 +219,9 @@ ;;; Hyprpaper (define-configuration/no-serialization home-hyprpaper-configuration + (hyprpaper + (file-like hyprpaper) + "The hyprpaper package to use.") (config (hypr-config '()) "Hyprpaper configuration")) @@ -236,7 +239,11 @@ (extensions (list (service-extension home-xdg-configuration-files-service-type - hyprpaper-configuration->file))) + hyprpaper-configuration->file) + (service-extension + home-profile-service-type + (lambda (config) + (list (home-hyprpaper-configuration-hyprpaper config)))))) (compose identity) (default-value (home-hyprpaper-configuration)) (description "Configure Hyprpaper by providing @file{~/.config/hypr/hyprpaper.conf}"))) @@ -244,6 +251,9 @@ ;;; Hyprlock (define-configuration/no-serialization home-hyprlock-configuration + (hyprlock + (file-like hyprlock) + "The hyprlock package to use.") (config (hypr-config '()) "Hyprlock configuration")) @@ -261,7 +271,11 @@ (extensions (list (service-extension home-xdg-configuration-files-service-type - hyprlock-configuration->file))) + hyprlock-configuration->file) + (service-extension + home-profile-service-type + (lambda (config) + (list (home-hyprlock-configuration-hyprlock config)))))) (compose identity) (default-value (home-hyprlock-configuration)) (description "Configure Hyprlock by providing @file{~/.config/hypr/hyprlock.conf}"))) |