From c30ae3e43facb855f6839a9724d4b35b4c95025d Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Mon, 2 Oct 2023 18:54:48 +1100 Subject: Add bom-port --- bom.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'bom.el') 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." -- cgit v1.2.3