From f98e299e911ff4e801a5cd2a4f81964408f491ac Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 4 May 2015 21:00:00 -0400
Subject: Add dmd config.

---
 dotfiles/dmd.d/init.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 dotfiles/dmd.d/init.scm

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))
-- 
cgit v1.2.3