summaryrefslogtreecommitdiff
path: root/dotfiles/.dmd.d
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2015-08-20 13:16:51 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2015-08-20 13:16:51 -0400
commitb359586f9ac54b6665819d9b4bb32ae2c3a5215c (patch)
treebd2dcf97d8bc7fd2008c2ebb98545e1b25b74aff /dotfiles/.dmd.d
parent2de2994c86edc3e7f2c610ca893d15073eb7aca0 (diff)
dmd: Clean up whitespace and comments.
Diffstat (limited to 'dotfiles/.dmd.d')
-rw-r--r--dotfiles/.dmd.d/init.scm24
1 files changed, 17 insertions, 7 deletions
diff --git a/dotfiles/.dmd.d/init.scm b/dotfiles/.dmd.d/init.scm
index 3ab8f0b..628bbdc 100644
--- a/dotfiles/.dmd.d/init.scm
+++ b/dotfiles/.dmd.d/init.scm
@@ -66,11 +66,12 @@ Ruby version, and listens on PORT."
#:stop (make-kill-destructor)))
(register-services
- ;; VHL applications.
+ ;; VHL applications
(rails-service "api" "3002" "1.9.3-p551")
(rails-service "ua" "3000" "2.1.5" '(api))
(rails-service "m3" "3001" "1.9.3-p551" '(api ua punjab openfire sidekiq))
- ;; Punjab BOSH server.
+
+ ;; Punjab (BOSH)
(let* ((punjab-home (string-append %home "/Code/vhl-bosh"))
(punjab-config (string-append punjab-home "/conf/development.tac")))
(make <service>
@@ -79,7 +80,8 @@ Ruby version, and listens on PORT."
#:start (make-forkexec-constructor (list "twistd" "--nodaemon" "-y" punjab-config)
#:directory punjab-home)
#:stop (make-kill-destructor)))
- ;; Openfire XMPP server.
+
+ ;; Openfire (XMPP)
(let ((openfire-home (string-append %home "/Code/vhl-xmpp/target/openfire")))
(make <service>
#:provides '(openfire)
@@ -91,12 +93,14 @@ Ruby version, and listens on PORT."
"-jar" (string-append openfire-home "/lib/startup.jar"))
#:directory openfire-home)
#:stop (make-kill-destructor)))
+
;; Redis
(make <service>
#:provides '(redis)
#:requires '()
#:start (make-forkexec-constructor '("redis-server"))
#:stop (make-kill-destructor))
+
;; Sidekiq
(make <service>
#:provides '(sidekiq)
@@ -107,19 +111,22 @@ Ruby version, and listens on PORT."
#:environment-variables
(ruby-environment "1.9.3-p551" "m3"))
#:stop (make-kill-destructor))
+
;; Emacs
(make <service>
#:provides '(emacs)
#:requires '()
#:start (make-system-constructor '("emacs" "--daemon"))
#:stop (make-system-destructor '("emacsclient" "--eval" "(kill-emacs)")))
- ;; Customize X key bindings.
+
+ ;; Xorg
(make <service>
#:provides '(xmodmap)
#:requires '()
#:start (make-forkexec-constructor
(list "xmodmap" (string-append %home "/.xmodmap"))))
- ;; GPG/SSH agent.
+
+ ;; GPG/SSH Agent
(make <service>
#:provides '(gpg-agent)
#:requires '()
@@ -129,7 +136,8 @@ Ruby version, and listens on PORT."
(string-append %home "/.guix-profile/bin/pinentry-gtk-2")))
#:stop (make-system-destructor
'("gpg-connect-agent" "killagent" "/bye")))
- ;; Mailbox sync.
+
+ ;; Mail
(make <service>
#:provides '(offlineimap)
#:requires '()
@@ -142,13 +150,15 @@ Ruby version, and listens on PORT."
(system* "offlineimap")
(sleep 40))))
#:stop (make-kill-destructor))
+
;; FUSE
(make <service>
#:provides '(sshfs)
#:requires '()
#:start (make-forkexec-constructor
(list "sshfs" "aigis:Music" (string-append %home "/Music"))))
- ;; Music.
+
+ ;; Music
(make <service>
#:provides '(mpd)
#:requires '()