From e0f1dd5d07f3b08c08f023171650969a9a36199b Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 3 Apr 2022 01:32:27 -0700
Subject: Add a kitty home service with configuration

---
 oni/home/services/kitty.scm | 48 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 oni/home/services/kitty.scm

(limited to 'oni/home/services')

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.")))
-- 
cgit v1.2.3-54-g00ecf