From 02a34a14a007cd3f03203173de8de1ab5507d6fb Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@gmail.com>
Date: Thu, 21 Dec 2017 14:00:32 +0100
Subject: feat(lisp): Make server port configurable

---
 src/gemma.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/gemma.lisp')

diff --git a/src/gemma.lisp b/src/gemma.lisp
index 279cbb3cceaa..008e2841b82f 100644
--- a/src/gemma.lisp
+++ b/src/gemma.lisp
@@ -44,6 +44,10 @@
             :initarg :done-at
             :accessor last-done-at)))
 
+(defvar *gemma-port*
+  (parse-integer (or (sb-posix:getenv "GEMMA_PORT") "4242"))
+  "Port on which the Gemma web server should listen.")
+
 (defvar *gemma-data-dir*
   (pathname (or (sb-posix:getenv "GEMMA_DATA_DIR")
                 (sb-posix:getcwd)))
@@ -107,7 +111,7 @@ maximum interval."
 
 (defun start-gemma ()
   ;; Set up web server
-  (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 4242))
+  (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port *gemma-port*))
 
   ;; ... and register all handlers.
 
-- 
cgit 1.4.1