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