From f595b77e60c06500c939699de0410df945cc2084 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 10 Oct 2015 09:58:44 -0400
Subject: dmd: Update config.

---
 dotfiles/.dmd.d/init.scm | 38 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 36 insertions(+), 2 deletions(-)

diff --git a/dotfiles/.dmd.d/init.scm b/dotfiles/.dmd.d/init.scm
index 5d59c86..f75a5e6 100644
--- a/dotfiles/.dmd.d/init.scm
+++ b/dotfiles/.dmd.d/init.scm
@@ -1,4 +1,6 @@
-(use-modules (ice-9 match))
+(use-modules (ice-9 match)
+             (srfi srfi-1)
+             (system repl server))
 
 (define-syntax-rule (forever body ...)
   (while #t body ...))
@@ -8,6 +10,19 @@
     (0 (begin body ...))
     (pid pid)))
 
+(define provided-by (@@ (dmd service) provided-by))
+(define deregister-service (@@ (dmd service) deregister-service))
+
+(define deregister-service*
+  (compose deregister-service symbol->string))
+
+(define (register-services* . services)
+  (for-each deregister-service* (append-map provided-by services))
+  (apply register-services services))
+
+(define-syntax-rule (define-service name service)
+  (define name (begin (register-services* service) service)))
+
 (define (touch-file file)
   (close-port (open-file file "a0b")))
 
@@ -65,6 +80,22 @@ Ruby version, and listens on PORT."
              #:environment-variables (ruby-environment ruby-version name))
     #:stop (make-kill-destructor)))
 
+;; (define-service vhl-tunnel
+;;   (make <service>
+;;     #:provides '(vhl-tunnel)
+;;     #:requires '()
+;;     #:start (make-forkexec-constructor
+;;              '("ssh" "-N" "-L" "1234:7VWJD42.vhl.dom:22" "vhl"))
+;;     #:stop (make-kill-destructor)))
+
+;; (define-service vhl-proxy
+;;   (make <service>
+;;     #:provides '(vhl-proxy)
+;;     #:requires '(vhl-tunnel)
+;;     #:start (make-forkexec-constructor
+;;              '("ssh" "-N" "-D8080" "-p1234" "dthompson@localhost"))
+;;     #:stop (make-kill-destructor)))
+
 (register-services
  ;; VHL applications
  (rails-service "api" "3002" "1.9.3-p551")
@@ -176,8 +207,11 @@ Ruby version, and listens on PORT."
    #:stop (make-kill-destructor))
  (simple-service "mpdscribble"))
 
-;; Send dmd into the background
+;; Send dmd into the background.
 (action 'dmd 'daemonize)
 
+;; Start the REPL server.
+(spawn-server (make-tcp-server-socket #:port 37148))
+
 ;; Services to start when dmd starts:
 (for-each start '(xmodmap emacs gpg-agent offlineimap))
-- 
cgit v1.2.3