buer: shepherd-services: Add repl

home-environments/radio.scm

@@ -147,7 +147,8 @@
           (service home-shepherd-service-type
                    (home-shepherd-configuration
                      (shepherd (@ (shepherd-package) shepherd))
-                     (services (list shepherd-service:timer
+                     (services (list shepherd-service:repl
+                                     shepherd-service:timer
                                      shepherd-service:wake-up))))
 
           #|Shell services|#

home-environments/radio/shepherd-services.scm

@@ -3,7 +3,21 @@
   #:use-module (gnu services shepherd)
   #:use-module (shepherd service timer)
 
-  #:export (wake-up timer))
+  #:export (repl timer wake-up))
+
+#|Repl|#
+(define repl
+  (shepherd-service
+    (provision '(repl))
+    (modules '((shepherd service repl)))
+    (free-form #~(repl-service))))
+
+#|Timers|#
+(define timer
+  (shepherd-service
+    (provision '(timer))
+    (modules '((shepherd service timer)))
+    (free-form #~(timer-service))))
 
 (define timer-trigger-action
   (shepherd-action
@@ -24,8 +38,3 @@ next calendar event.")))
     (stop #~(make-timer-destructor))
     (actions (list timer-trigger-action))))
 
-(define timer
-  (shepherd-service
-    (provision '(timer))
-    (modules '((shepherd service timer)))
-    (free-form #~(timer-service))))

operating-systems/buer/rules.scm

@@ -35,6 +35,10 @@
                          (command "herd")
                          (args (list action))))
                `("status" "detailed-status"))
+          (list (permit (identity ":wheel")
+                         (nopass? #t)
+                         (command "herd")
+                         (args (list "trigger" "snapshot-@home"))))
           (flat-map (lambda (service action)
                       (permit (identity ":wheel")
                               (nopass? #t)

operating-systems/buer/shepherd-services.scm

@@ -1,10 +1,19 @@
 (define-module (buer shepherd-services)
   #:use-module (guix gexp)
   #:use-module (gnu services shepherd)
+  #:use-module (shepherd service repl)
   #:use-module (shepherd service timer)
 
-  #:export (guix-gc snapshot-@home timer))
+  #:export (guix-gc snapshot-@home repl timer))
 
+#|Repl|#
+(define repl
+  (shepherd-service
+    (provision '(repl))
+    (modules '((shepherd service repl)))
+    (free-form #~(repl-service))))
+
+#|Timers|#
 (define timer-trigger-action
   (shepherd-action
     (name 'trigger)