summaryrefslogtreecommitdiff
path: root/dotfiles/.dmd.d/init.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2015-08-20 12:27:25 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2015-08-20 12:28:01 -0400
commit2de2994c86edc3e7f2c610ca893d15073eb7aca0 (patch)
treef7dc1e8d10d7fff7abd26c5491ff7b41f694ed68 /dotfiles/.dmd.d/init.scm
parent91a12f4d262f4ab3d4714fdb03ba45283edea049 (diff)
dmd: Update to include Openfire service.
Diffstat (limited to 'dotfiles/.dmd.d/init.scm')
-rw-r--r--dotfiles/.dmd.d/init.scm26
1 files 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))