home-environments: radio: Add shepherd-service:repl

main
Luis Guilherme Coelho 2024-11-25 14:27:27 -03:00
parent cd0ad6cdc0
commit 55e3457d42
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
2 changed files with 17 additions and 7 deletions

View File

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

View File

@ -3,7 +3,21 @@
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (shepherd service timer) #: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 (define timer-trigger-action
(shepherd-action (shepherd-action
@ -24,8 +38,3 @@ next calendar event.")))
(stop #~(make-timer-destructor)) (stop #~(make-timer-destructor))
(actions (list timer-trigger-action)))) (actions (list timer-trigger-action))))
(define timer
(shepherd-service
(provision '(timer))
(modules '((shepherd service timer)))
(free-form #~(timer-service))))