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