From f7193ea090891532ec5e6f2abbd6f805bdfbbf1f Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Sat, 21 Dec 2024 12:30:38 +0100 Subject: update to shepherd 1.0 --- config/shepherd/init.scm | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) (limited to 'config/shepherd/init.scm') diff --git a/config/shepherd/init.scm b/config/shepherd/init.scm index 3d47bd4..6b16623 100644 --- a/config/shepherd/init.scm +++ b/config/shepherd/init.scm @@ -1,25 +1,20 @@ ;; init.scm -- default shepherd configuration file. (use-modules ((ice-9 ftw) #:select (scandir)) + (shepherd service) (srfi srfi-26)) ;; Load all the files in the directory 'init.d' with a suffix '.scm'. (for-each - (lambda (file) - (load (string-append "init.d/" file))) - (scandir (string-append (dirname (current-filename)) "/init.d") - (cut string-suffix? ".scm" <>))) - - -;; Services known to shepherd: -;; Add new services (defined using 'make ') to shepherd here by -;; providing them as arguments to 'register-services'. -(register-services) + (lambda (file) + (load (string-append "init.d/" file))) + (scandir (string-append (dirname (current-filename)) "/init.d") + (cut string-suffix? ".scm" <>))) ;; Send shepherd into the background -(action 'shepherd 'daemonize) +(perform-service-action root-service 'daemonize) ;; Services to start when shepherd starts: ;; Add the name of each service that should be started to the list ;; below passed to 'for-each'. -(for-each start '(habit-logs roam-semantic-db)) +(start-in-the-background '(habit-logs roam-semantic-db)) -- cgit v1.2.3