From e18a2fc5a58c54c27d5a2679c8ef7539719ccd0c Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Sun, 24 May 2015 04:34:57 -0400
Subject: dmd: Add emacs, gpg-agent, and xmodmap services.

---
 dotfiles/.dmd.d/init.scm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/dotfiles/.dmd.d/init.scm b/dotfiles/.dmd.d/init.scm
index 420c7cf..9b49859 100644
--- a/dotfiles/.dmd.d/init.scm
+++ b/dotfiles/.dmd.d/init.scm
@@ -15,7 +15,29 @@
     #:start (make-forkexec-constructor (list program))
     #:stop (make-kill-destructor)))
 
+(define %home (getenv "HOME"))
+
 (register-services
+ ;; Emacs
+ (make <service>
+   #:provides '(emacs)
+   #:requires '()
+   #:start (make-forkexec-constructor (list "emacs" "--daemon")))
+ ;; Customize X key bindings.
+ (make <service>
+   #:provides '(xmodmap)
+   #:requires '()
+   #:start (make-forkexec-constructor
+            (list "xmodmap" (string-append %home "/.xmodmap"))))
+ ;; GPG/SSH agent.
+ (make <service>
+   #:provides '(gpg-agent)
+   #:requires '()
+   #:start (make-forkexec-constructor
+            (list "gpg-agent"
+                  "--daemon"
+                  "--enable-ssh-support")))
+ ;; Mailbox sync.
  (make <service>
    #:provides '(offlineimap)
    #:requires '()
@@ -28,6 +50,7 @@
                (system* "offlineimap")
                (sleep 20))))
    #:stop (make-kill-destructor))
+ ;; Music.
  (simple-service "mpd")
  (simple-service "mpdscribble"))
 
@@ -35,4 +58,4 @@
 (action 'dmd 'daemonize)
 
 ;; Services to start when dmd starts:
-(for-each start '(offlineimap mpd mpdscribble))
+(for-each start '(emacs xmodmap gpg-agent))
-- 
cgit v1.2.3