From 05067670476f839100fbb98b77284ddbf8e5adc4 Mon Sep 17 00:00:00 2001 From: Jakub Dlugosz Date: Fri, 31 Oct 2025 13:05:37 +0100 Subject: Add feature-shepherd-repl to create REPL socket with home's herd --- src/jd/features/shepherd.scm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 src/jd/features/shepherd.scm (limited to 'src/jd/features') 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))) -- cgit v1.2.3