Add shepherd and mcron services for some applications

emacs/.config/shepherd/init.d/emacs.scm

@@ -0,0 +1,12 @@
+(define emacs
+  (make <service>
+    #:provides '(emacs)
+    #:docstring "Run `emacs --daemon'"
+    #:start (make-forkexec-constructor
+             '("emacs" "--fg-daemon")
+             #:log-file (string-append (getenv "HOME") "/.logs/emacs.log"))
+    #:stop (make-kill-destructor)))
+
+(register-services emacs)
+
+(start emacs)

mbsync/.config/cron/mbsync.guile

@@ -0,0 +1 @@
+(job '(next-minute) "mbsync --all --quiet --verbose")

mcron/.config/shepherd/init.d/mcron.scm

@@ -0,0 +1,13 @@
+(define mcron
+  (make <service>
+    #:provides '(mcron)
+    #:docstring "Run `mcron'"
+    #:start (make-forkexec-constructor
+             '("mcron")
+             #:log-file (string-append (getenv "HOME") "/.logs/mcron.log"))
+    #:stop (make-kill-destructor)
+    #:respawn? #t))
+
+(register-services mcron)
+
+(start mcron)

xbindkeys/.config/shepherd/init.d/xbindkeys.scm

@@ -0,0 +1,12 @@
+(define xbindkeys
+  (make <service>
+    #:provides '(xbindkeys)
+    #:docstring "Run `xbindkeys'"
+    #:start (make-forkexec-constructor
+             '("xbindkeys" "--nodaemon")
+             #:log-file (string-append (getenv "HOME") "/.logs/xbindkeys.log"))
+    #:stop (make-kill-destructor)))
+
+(register-services xbindkeys)
+
+(start xbindkeys)