blob: 85de6d2fefac15e81d93ed99eb8d4bb0d64b9c0e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(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))
|
