From cbf42ddc838a328b89eaf4e02f77039b784850d6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 30 Jun 2022 10:32:55 +0530
Subject: bin: Read web service parameters from configuration file.

* bin/tissue (invalid-operand): Delete function.
(tissue-run-web): Read address and port from configuration file.
---
 bin/tissue | 25 +++++++------------------
 1 file changed, 7 insertions(+), 18 deletions(-)

(limited to 'bin')

diff --git a/bin/tissue b/bin/tissue
index 247a45f..fb1656e 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -66,9 +66,6 @@ exec guile --no-auto-compile -s "$0" "$@"
 (define (invalid-option opt name arg loads)
   (error "Invalid option" name))
 
-(define (invalid-operand arg loads)
-  (error "Invalid argument" arg))
-
 (define (command-line-program)
   "Return the name, that is arg0, of the command-line program invoked
 to run tissue."
@@ -213,31 +210,23 @@ Export the repository as a website to OUTPUT-DIRECTORY.
 (define tissue-run-web
   (match-lambda*
     (("--help")
-     (format #t "Usage: ~a run-web
-Run a web search service for the current repository.
+     (format #t "Usage: ~a run-web CONFIG-FILE
+Run a web search service reading configuration from CONFIG-FILE.
 
-  --address=IP       run web server listening on IP address [default=127.0.0.1]
-  --port=PORT        run web server listening on PORT [default=8080]
   --listen-repl=P    run REPL server listening on port or path P
 "
              (command-line-program)))
     (args
      (let ((args (args-fold args
-                            (list (option (list "address")
-                                          #t #f
-                                          (lambda (opt name arg result)
-                                            (acons 'address arg result)))
-                                  (option (list "port")
-                                          #t #f
-                                          (lambda (opt name arg result)
-                                            (acons 'port (string->number arg)
-                                                   result)))
-                                  (option '("listen-repl")
+                            (list (option '("listen-repl")
                                           #t #f
                                           (lambda (opt name arg result)
                                             (acons 'listen-repl arg result))))
                             invalid-option
-                            invalid-operand
+                            (lambda (config-file result)
+                              (append (call-with-input-file config-file
+                                        read)
+                                      result))
                             ;; Default address and port
                             '((address . "127.0.0.1")
                               (port . 8080)))))
-- 
cgit v1.2.3