diff options
author | Tom Willemse | 2022-04-03 01:32:27 -0700 |
---|---|---|
committer | Tom Willemse | 2022-04-03 01:32:27 -0700 |
commit | e0f1dd5d07f3b08c08f023171650969a9a36199b (patch) | |
tree | 6ffd7861454d51258772f6a724b218e798122b5b /oni/home/services | |
parent | d28afb72dbcee5298b493d75ec65705f6f551fd1 (diff) | |
download | new-dotfiles-e0f1dd5d07f3b08c08f023171650969a9a36199b.tar.gz new-dotfiles-e0f1dd5d07f3b08c08f023171650969a9a36199b.zip |
Add a kitty home service with configuration
Diffstat (limited to 'oni/home/services')
-rw-r--r-- | oni/home/services/kitty.scm | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/oni/home/services/kitty.scm b/oni/home/services/kitty.scm new file mode 100644 index 0000000..23061dd --- /dev/null +++ b/oni/home/services/kitty.scm @@ -0,0 +1,48 @@ +(define-module (oni home services kitty) + #:use-module (gnu services configuration) + #:use-module (gnu packages terminals) + #:use-module (gnu home services) + #:use-module (gnu home services utils) + #:use-module (guix packages) + #:use-module (guix gexp) + #:use-module (string transform) + + #:export (home-kitty-service-type + home-kitty-configuration)) + +(define-configuration/no-serialization home-kitty-configuration + (package + (package kitty) + "Package to use for setting kitty") + (configuration + (alist '()) + "List of configuration settings.")) + +(define (serialize-kitty-setting setting) + (format #f "~a ~a" + (transform-string (symbol->string (car setting)) #\- #\_) + (let ((value (cdr setting))) + (cond + ((boolean? value) (if value "yes" "no")) + ((list? value) (string-join (map symbol->string value) ", ")) + (else value))))) + +(define (serialize-kitty-config config) + (string-join (map serialize-kitty-setting (home-kitty-configuration-configuration config)) "\n" 'suffix)) + +(define (kitty-home-files config) + `(("config/kitty/kitty.conf" + ,(mixed-text-file + "kitty.conf" + (serialize-kitty-config config))))) + +(define home-kitty-service-type + (service-type + (name 'home-kitty) + (extensions + (list (service-extension + home-files-service-type + kitty-home-files))) + (compose identity) + (default-value (home-kitty-configuration)) + (description "Install and configure kitty."))) |