Fix (gnu home-services state) and add feature-state

1 files changed, 25 insertions, 0 deletions

diff --git a/src/jd/features/state.scm b/src/jd/features/state.scm
new file mode 100644
index 0000000..ef8620b
--- /dev/null
+++ b/src/jd/features/state.scm
@@ -0,0 +1,25 @@
+(define-module (jd features state)
+  #:use-module (guix gexp)
+  #:use-module (ice-9 match)
+  #:use-module (gnu services)
+  #:use-module (gnu home-services state)
+  #:use-module (rde features))
+
+(define-public (feature-state states)
+  (define f-name 'state)
+
+  (define (get-home-services config)
+    (list
+     (simple-service
+      'user-state
+      home-state-service-type
+      (map
+       (match-lambda
+         (('git local remote) (state-git local remote))
+         (#t (error "State not found")))
+       states))))
+
+  (feature
+   (name f-name)
+   (values `((,f-name . #t)))
+   (home-services-getter get-home-services)))