Add feature-shepherd-repl to create REPL socket with home's herd

2 files changed, 35 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)))
diff --git a/src/jd/user.scm b/src/jd/user.scm
index 15857a0..aff2b99 100644
--- a/src/jd/user.scm
+++ b/src/jd/user.scm
@@ -26,6 +26,7 @@
   #:use-module (jd features mail)
   #:use-module (jd features networking)
   #:use-module (jd features nextcloud)
+  #:use-module (jd features shepherd)
   #:use-module (jd features state)
 
   #:use-module (nongnu packages linux)
@@ -80,6 +81,7 @@
    (feature-base-services)
    (feature-base-packages)
    (feature-desktop-services)
+   (feature-shepherd-repl)
    (feature-tex)
    (feature-xdg
     #:xdg-user-directories-configuration