diff options
| -rw-r--r-- | dotfiles/.dmd.d/init.scm | 25 |
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)) |