Add dmd config.

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))