From 0f0b664922416ec4a409df3abecdb1d8c1161aff Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Thu, 13 Jan 2022 11:24:11 +0300
Subject: [PATCH] feat(shepherd): sqrt-data

---
 .config/shepherd/init.scm | 25 +++++++++++++++++++++++--
 Desktop.org               | 27 +++++++++++++++++++++++++--
 2 files changed, 48 insertions(+), 4 deletions(-)

diff --git a/.config/shepherd/init.scm b/.config/shepherd/init.scm
index 8fb99e7..0efef9b 100644
--- a/.config/shepherd/init.scm
+++ b/.config/shepherd/init.scm
@@ -97,6 +97,13 @@
     #:start (make-forkexec-constructor '("/home/pavel/bin/davmail"))
     #:stop (make-kill-destructor)))
 
+(define sqrt-data
+  (make <service>
+    #:provides '(sqrt-data)
+    #:respawn? #t
+    #:start (make-forkexec-constructor '("sqrt_data" "cron" "run-client-cron"))
+    #:stop (make-kill-destructor)))
+
 (register-services
  mpd
  mpd-watcher
@@ -111,8 +118,22 @@
  vpn
  davmail
  xmodmap
- nm-applet)
+ nm-applet
+ sqrt-data)
 
 (action 'shepherd 'daemonize)
 
-(for-each start '(mpd mpd-watcher mcron aw-server aw-watcher-afk aw-watcher-window pulseeffects xsettingsd discord-rich-presence polkit-gnome davmail xmodmap nm-applet))
+(for-each start '(mpd
+                  mpd-watcher
+                  mcron
+                  aw-server
+                  aw-watcher-afk
+                  aw-watcher-window
+                  pulseeffects
+                  xsettingsd
+                  discord-rich-presence
+                  polkit-gnome
+                  davmail
+                  xmodmap
+                  nm-applet
+                  sqrt-data))
diff --git a/Desktop.org b/Desktop.org
index 59ebe10..da6719a 100644
--- a/Desktop.org
+++ b/Desktop.org
@@ -3475,6 +3475,15 @@ Run my [[file:Guix.org::*VPN][OpenVPN setup]]. Not lauching this automatially, a
     #:start (make-forkexec-constructor '("/home/pavel/bin/davmail"))
     #:stop (make-kill-destructor)))
 #+end_src
+** sqrt-data
+#+begin_src scheme
+(define sqrt-data
+  (make <service>
+    #:provides '(sqrt-data)
+    #:respawn? #t
+    #:start (make-forkexec-constructor '("sqrt_data" "cron" "run-client-cron"))
+    #:stop (make-kill-destructor)))
+#+end_src
 ** Shepherd config
 Register services
 #+begin_src scheme
@@ -3492,7 +3501,8 @@ Register services
  vpn
  davmail
  xmodmap
- nm-applet)
+ nm-applet
+ sqrt-data)
 #+end_src
 
 Daemonize shepherd
@@ -3502,7 +3512,20 @@ Daemonize shepherd
 
 Run services
 #+begin_src scheme
-(for-each start '(mpd mpd-watcher mcron aw-server aw-watcher-afk aw-watcher-window pulseeffects xsettingsd discord-rich-presence polkit-gnome davmail xmodmap nm-applet))
+(for-each start '(mpd
+                  mpd-watcher
+                  mcron
+                  aw-server
+                  aw-watcher-afk
+                  aw-watcher-window
+                  pulseeffects
+                  xsettingsd
+                  discord-rich-presence
+                  polkit-gnome
+                  davmail
+                  xmodmap
+                  nm-applet
+                  sqrt-data))
 #+end_src
 ** Sync
 | Guix dependency |