diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/tissue | 20 |
1 files changed, 14 insertions, 6 deletions
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. |