14 lines
321 B
Scheme
14 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)
|