1 files changed, 32 insertions, 0 deletions
diff --git a/config/shepherd/init.d/my-daemons.scm b/config/shepherd/init.d/my-daemons.scm
new file mode 100644
index 0000000..1b5daf8
--- /dev/null
+++ b/config/shepherd/init.d/my-daemons.scm
@@ -0,0 +1,32 @@
+
+(register-services
+ (make <service>
+   #:docstring "Habit tracker"
+   #:provides '(habit-logs)
+   #:start (make-forkexec-constructor
+            (list "sbcl"
+                  "--load"
+                  (string-append (getenv "HOME") "/dev/common-lisp/todo-demo/habit.asd")
+                  "--eval" "(asdf:load-system :habit)"
+                  "--eval" "(habit-log::main)"
+                  "--non-interactive")
+            #:directory (string-append (getenv "HOME") "/dev/common-lisp/todo-demo/")
+            #:environment-variables (list (string-append "HABIT_DIR=" (getenv "HOME") "/org/habits/")
+                                          "PORT=4242")
+            #:log-file "/tmp/habits.log")
+   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+   #:respawn? #t))
+
+(let ((workdir (string-append (getenv "HOME") "/dev/dotfiles/scratch/semgrep/")))
+  (register-services
+   (make <service>
+     #:docstring "Roam semantic DB"
+     #:provides '(roam-semantic-db)
+     #:start (make-forkexec-constructor
+              (list "python"
+                    (string-append workdir "server.py"))
+              #:directory workdir
+              #:environment-variables (list (string-append "PATH=" (getenv "HOME") "/.virtualenvs/language/bin"))
+              #:log-file "/tmp/roam-semantic.log")
+     #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
+     #:respawn? #t)))