Add bom-port

1 files changed, 4 insertions, 2 deletions

diff --git a/bom.el b/bom.el
index e9a44f7..313b25a 100644
--- a/bom.el
+++ b/bom.el
@@ -56,7 +56,9 @@
 
 (defvar bom-areas nil "List of areas with forecasts.")
 
-(defvar bom-server nil "The BOM server object.")
+(defvar bom-server nil "The server object.")
+
+(defvar bom-port 9000 "The port number of the server.")
 
 (defun bom-area-parent (area)
   "Search `bom-areas' for the parent of AREA.
@@ -185,7 +187,7 @@ We use the description of the first root as the state name."
               process
               (bom-serve (alist-get :GET headers))
               )))
-         9000)))
+         bom-port)))
 
 (defun bom-stop ()
   "Stop serving weather forecasts."