diff options
| author | Sisiutl <sisiutl@egregore.fun> | 2024-11-12 14:44:29 +0100 |
|---|---|---|
| committer | Sisiutl <sisiutl@egregore.fun> | 2024-11-12 14:48:53 +0100 |
| commit | 0ed0fc6f39663fcf11b769ec94540dec26b7bd96 (patch) | |
| tree | 1ad12886c1a2b330ac44a0105c24c5f13b206476 | |
| parent | 00af6cfea4d340f15b57aa6963acb002aa2b25e4 (diff) | |
add hypr- packages to profile
| -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}"))) |