(register-services
 (make <service>
   #:docstring "Habit tracker"
   #:provides '(habit-logs)
   #:start (make-forkexec-constructor
            (list "sbcl" "--load"
                  (string-append (getenv "HOME") "/.sbclrc")
                  "--load"
                  (string-append (getenv "HOME") "/dev/common-lisp/todo-demo/habit.lisp")
                  "--eval" "(habit-log::main)" "--non-interactive")
            #:directory (string-append (getenv "HOME") "/dev/common-lisp/todo-demo/")
            #:log-file "/tmp/habits.log")
   #:stop (make-kill-destructor 2) ;; 2 is SIGINT - interupt process stream, ctrl-C
   #:respawn? #t))