From ee5b70518678392022dfc512c54693711b7d9102 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Fri, 21 Jul 2023 15:54:26 +0200 Subject: update habit log service with config vars --- config/shepherd/init.d/my-daemons.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'config') diff --git a/config/shepherd/init.d/my-daemons.scm b/config/shepherd/init.d/my-daemons.scm index 85de6d2..6388850 100644 --- a/config/shepherd/init.d/my-daemons.scm +++ b/config/shepherd/init.d/my-daemons.scm @@ -4,12 +4,15 @@ #:docstring "Habit tracker" #:provides '(habit-logs) #:start (make-forkexec-constructor - (list "sbcl" "--load" - (string-append (getenv "HOME") "/.sbclrc") + (list "sbcl" "--load" - (string-append (getenv "HOME") "/dev/common-lisp/todo-demo/habit.lisp") - "--eval" "(habit-log::main)" "--non-interactive") + (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)) -- cgit v1.2.3