From 2de2994c86edc3e7f2c610ca893d15073eb7aca0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 20 Aug 2015 12:27:25 -0400
Subject: dmd: Update to include Openfire service.

---
 dotfiles/.dmd.d/init.scm | 26 +++++++++++++++++++-------
 1 file changed, 19 insertions(+), 7 deletions(-)

diff --git a/dotfiles/.dmd.d/init.scm b/dotfiles/.dmd.d/init.scm
index 4315b09..3ab8f0b 100644
--- a/dotfiles/.dmd.d/init.scm
+++ b/dotfiles/.dmd.d/init.scm
@@ -69,7 +69,7 @@ Ruby version, and listens on PORT."
  ;; 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 sidekiq))
+ (rails-service "m3" "3001" "1.9.3-p551" '(api ua punjab openfire sidekiq))
  ;; Punjab BOSH server.
  (let* ((punjab-home (string-append %home "/Code/vhl-bosh"))
         (punjab-config (string-append punjab-home "/conf/development.tac")))
@@ -79,7 +79,18 @@ Ruby version, and listens on PORT."
      #:start (make-forkexec-constructor (list "twistd" "--nodaemon" "-y" punjab-config)
                                         #:directory punjab-home)
      #:stop (make-kill-destructor)))
- ;; TODO: Openfire XMPP server.
+ ;; Openfire XMPP server.
+ (let ((openfire-home (string-append %home "/Code/vhl-xmpp/target/openfire")))
+   (make <service>
+     #:provides '(openfire)
+     #:requires '()
+     #:start (make-forkexec-constructor
+              (list "java" "-server"
+                    (string-append "-DopenfireHome=" openfire-home)
+                    (string-append "-Dopenfire.lib.dir=" openfire-home "/lib")
+                    "-jar" (string-append openfire-home "/lib/startup.jar"))
+              #:directory openfire-home)
+     #:stop (make-kill-destructor)))
  ;; Redis
  (make <service>
    #:provides '(redis)
@@ -90,10 +101,11 @@ Ruby version, and listens on PORT."
  (make <service>
     #:provides '(sidekiq)
     #:requires '(redis)
-    #:start (make-forkexec-constructor '("sidekiq")
-                                       #:directory (string-append %home "/Code/m3")
-                                       #:environment-variables
-                                       (ruby-environment "1.9.3-p551" "m3"))
+    #:start (make-forkexec-constructor
+             '("sidekiq")
+             #:directory (string-append %home "/Code/m3")
+             #:environment-variables
+             (ruby-environment "1.9.3-p551" "m3"))
     #:stop (make-kill-destructor))
  ;; Emacs
  (make <service>
@@ -156,4 +168,4 @@ Ruby version, and listens on PORT."
 (action 'dmd 'daemonize)
 
 ;; Services to start when dmd starts:
-(for-each start '(xmodmap gpg-agent offlineimap))
+(for-each start '(xmodmap emacs gpg-agent offlineimap))
-- 
cgit v1.2.3