From b359586f9ac54b6665819d9b4bb32ae2c3a5215c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 20 Aug 2015 13:16:51 -0400
Subject: dmd: Clean up whitespace and comments.

---
 dotfiles/.dmd.d/init.scm | 24 +++++++++++++++++-------
 1 file 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 '()
-- 
cgit v1.2.3