From b15edb1e6910a8a2b4994d8225f2ec5097e648ab Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Fri, 1 Jul 2022 01:25:58 +0530 Subject: web: server: Make CSS a host-specific parameter. * bin/tissue (tissue-run-web): Pass CSS as a host-specific parameter. * tissue/web/server.scm (handler): Remove css argument. Accept CSS as a host-specific parameter. (start-web-server): Remove css argument. --- bin/tissue | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) (limited to 'bin') diff --git a/bin/tissue b/bin/tissue index 2237652..2c739b3 100755 --- a/bin/tissue +++ b/bin/tissue @@ -251,12 +251,20 @@ Run a web search service reading configuration from CONFIG-FILE. listen-repl) (make-unix-domain-server-socket #:path listen-repl)))))) (start-web-server (listen->socket-address (assq-ref args 'listen)) - (or (assq-ref args 'hosts) - ;; Assume current directory as default. - `(("localhost" - (indexed-repository . ,(getcwd))))) - %xapian-index - (tissue-configuration-web-css (load-config))))))) + (map (match-lambda + ((name parameters ...) + ;; Set CSS for each host. + (call-with-current-directory (assq-ref parameters 'indexed-repository) + (lambda () + (cons name + (acons 'css + (tissue-configuration-web-css (load-config)) + parameters)))))) + (or (assq-ref args 'hosts) + ;; Assume current directory as default. + `(("localhost" + (indexed-repository . ,(getcwd)))))) + %xapian-index))))) ;; This is a noop, since the index is built on any tissue command. It ;; exists just for the --help usage summary. -- cgit v1.2.3