1 files changed, 33 insertions, 0 deletions

diff --git a/src/jd/features/shepherd.scm b/src/jd/features/shepherd.scm
new file mode 100644
index 0000000..003e3bf
--- /dev/null
+++ b/src/jd/features/shepherd.scm
@@ -0,0 +1,33 @@
+(define-module (jd features shepherd)
+  #:use-module (guix gexp)
+  #:use-module (gnu services)
+  #:use-module (gnu home services shepherd)
+  #:use-module (rde features)
+  #:export (feature-shepherd-repl))
+
+(define-public (feature-shepherd-repl)
+  (define f-name 'shepherd-repl)
+
+  (define (shepherd-repl-service _)
+    (list
+     (shepherd-service
+      (provision '(repl))
+      (modules '((shepherd service repl)))
+      (free-form #~(repl-service)))))
+
+  (define shepherd-repl-service-type
+    (service-type
+     (name 'shepherd-repl)
+     (extensions
+      (list (service-extension home-shepherd-service-type shepherd-repl-service)))
+     (description "Create shepherd repl socket.")
+     (default-value '())))
+
+  (define (get-home-services config)
+    (list
+     (service shepherd-repl-service-type)))
+
+  (feature
+   (name f-name)
+   (values `((,f-name . #t)))
+   (home-services-getter get-home-services)))