summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <davet@gnu.org>2015-05-24 04:34:57 -0400
committerDavid Thompson <davet@gnu.org>2015-05-24 04:34:57 -0400
commite18a2fc5a58c54c27d5a2679c8ef7539719ccd0c (patch)
treeea15cd4030290e8d47f0a4b6b00fff8f6557400a
parent14cc26418ac1949456c0e86d7f665ab3b53b4bc6 (diff)
dmd: Add emacs, gpg-agent, and xmodmap services.
-rw-r--r--dotfiles/.dmd.d/init.scm25
1 files changed, 24 insertions, 1 deletions
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))