diff options
| -rw-r--r-- | dotfiles/dmd.d/init.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/dotfiles/dmd.d/init.scm b/dotfiles/dmd.d/init.scm new file mode 100644 index 0000000..ff91b05 --- /dev/null +++ b/dotfiles/dmd.d/init.scm @@ -0,0 +1,17 @@ +(define (simple-service program) + (make <service> + #:provides (list (string->symbol program)) + #:requires '() + #:start (make-forkexec-constructor (list program)) + #:stop (make-kill-destructor))) + +(register-services + (simple-service "offlineimap") + (simple-service "mpd") + (simple-service "mpdscribble")) + +;; Send dmd into the background +(action 'dmd 'daemonize) + +;; Services to start when dmd starts: +(for-each start '(offlineimap mpd mpdscribble)) |