13 lines
321 B
Scheme
13 lines
321 B
Scheme
(define mcron
|
|
(make <service>
|
|
#:provides '(mcron)
|
|
#:docstring "Run `mcron'"
|
|
#:start (make-forkexec-constructor
|
|
'("mcron")
|
|
#:log-file (string-append (getenv "HOME") "/.logs/mcron.log"))
|
|
#:stop (make-kill-destructor)
|
|
#:respawn? #t))
|
|
|
|
(register-services mcron)
|
|
|
|
(start mcron)
|