Add bind_host setting requested by Artemis

breezewiki.rkt

@@ -30,7 +30,9 @@
 (define ch (make-channel))
 (define (start)
   (serve/launch/wait
-   #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
+   #:listen-ip (if (equal? (config-get 'bind_host) "auto")
+                 (if (config-true? 'debug) "127.0.0.1" #f)
+                 (config-get 'bind_host))
    #:port (string->number (config-get 'port))
    (λ (quit)
      (channel-put ch (lambda () (semaphore-post quit)))

dist.rkt

@@ -20,7 +20,9 @@
 (require (only-in "src/page-file.rkt" page-file))
 
 (serve/launch/wait
- #:listen-ip (if (config-true? 'debug) "127.0.0.1" #f)
+ #:listen-ip (if (equal? (config-get 'bind_host) "auto")
+                 (if (config-true? 'debug) "127.0.0.1" #f)
+                 (config-get 'bind_host))
  #:port (string->number (config-get 'port))
  (λ (quit)
    (dispatcher-tree

src/config.rkt

@@ -29,12 +29,13 @@
 
 (define default-config
   '((application_name . "BreezeWiki")
+    (bind_host . "auto")
+    (port . "10416")
     (canonical_origin . "")
     (debug . "false")
     (feature_search_suggestions . "true")
     (instance_is_official . "false") ; please don't turn this on, or you will make me very upset
     (log_outgoing . "true")
-    (port . "10416")
     (strict_proxy . "false")
 
     (feature_offline::enabled . "false")