From ccca62e11f0d1ddd8838fb927c09d72dcb53e514 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sat, 21 Dec 2024 18:57:29 +0100
Subject: exercise-reminder: add it

---
 shepherd/shepherd/init.d/exercise.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 shepherd/shepherd/init.d/exercise.scm

(limited to 'shepherd')

diff --git a/shepherd/shepherd/init.d/exercise.scm b/shepherd/shepherd/init.d/exercise.scm
new file mode 100644
index 0000000..c00b879
--- /dev/null
+++ b/shepherd/shepherd/init.d/exercise.scm
@@ -0,0 +1,17 @@
+(define config (or (getenv "XDG_CONFIG_HOME")
+                   (string-append (getenv "HOME") "/.config")))
+
+(define exercise
+  (service
+    '(exercise)
+    #:documentation "When you are in the computer, you should pause and do some
+exercise. Dude, come on"
+    #:start (make-forkexec-constructor
+              `("guile" "-e" "(reminder)" "--" "-c"
+                ,(string-append config "/reminder/exercise.scm"))
+              #:log-file (string-append config "/reminder/exercise.log"))
+    #:stop (make-kill-destructor)
+    #:respawn? #t))
+(register-services exercise)
+
+(start exercise)
-- 
cgit v1.2.3