exercise-reminder: add itguix

1 files changed, 17 insertions, 0 deletions

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)