(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)))