diff mbox series

[bug#77041,v2,15/16] services: shepherd: Add ‘shepherd-timer’.

Message ID ac038d5730103ac1ea3f8af9cd15937d7b9d34d8.1742642743.git.ludo@gnu.org
State New
Headers
Series Replacing mcron jobs by Shepherd timers |

Commit Message

Ludovic Courtès March 22, 2025, 11:36 a.m. UTC 
  * gnu/services/shepherd.scm (shepherd-timer): New procedure.
* gnu/home/services/shepherd.scm: Re-export it.

Suggested-by: Luis Guilherme Coelho <lgcoelho@disroot.org>
Change-Id: I5f702d4119eee47381a7a1ac650b8ad3fc5e6cdd
---
 gnu/home/services/shepherd.scm |  3 ++-
 gnu/services/shepherd.scm      | 26 ++++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 1 deletion(-)
diff mbox series

Patch

diff --git a/gnu/home/services/shepherd.scm b/gnu/home/services/shepherd.scm
index 25f1641b32..b4d826f6bb 100644
--- a/gnu/home/services/shepherd.scm
+++ b/gnu/home/services/shepherd.scm
@@ -53,7 +53,8 @@  (define-module (gnu home services shepherd)
 
                shepherd-action
                shepherd-configuration-action
-               shepherd-trigger-action))
+               shepherd-trigger-action
+               shepherd-timer))
 
 (define-record-type* <home-shepherd-configuration>
   home-shepherd-configuration make-home-shepherd-configuration
diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm
index e7e414b920..c8e01c9d83 100644
--- a/gnu/services/shepherd.scm
+++ b/gnu/services/shepherd.scm
@@ -72,6 +72,7 @@  (define-module (gnu services shepherd)
             shepherd-action-procedure
 
             shepherd-configuration-action
+            shepherd-timer
             shepherd-trigger-action
 
             %default-modules
@@ -257,6 +258,31 @@  (define (shepherd-service-canonical-name service)
   "Return the 'canonical name' of SERVICE."
   (first (shepherd-service-provision service)))
 
+(define %default-timer-documentation
+  "Periodically run a command.") ;no i18n since it gets in the shepherd process
+
+(define* (shepherd-timer provision schedule command
+                         #:key
+                         (requirement '())
+                         (documentation %default-timer-documentation))
+  "Return a Shepherd service with the given PROVISION periodically running
+COMMAND, a list-valued gexp, according to SCHEDULE, a string in Vixie cron
+syntax or a gexp providing a Shepherd calendar event.  DOCUMENTATION is the
+string that appears when running 'herd doc SERVICE'."
+  (shepherd-service
+   (provision provision)
+   (requirement requirement)
+   (modules '((shepherd service timer)))
+   (start #~(make-timer-constructor
+             #$(if (string? schedule)
+                   #~(cron-string->calendar-event #$schedule)
+                   schedule)
+             (command '(#$@command))
+             #:wait-for-termination? #t))
+   (stop #~(make-timer-destructor))
+   (documentation documentation)
+   (actions (list shepherd-trigger-action))))
+
 (define (assert-valid-graph services)
   "Raise an error if SERVICES does not define a valid shepherd service graph,
 for instance if a service requires a nonexistent service, or if more than one