summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tissue20
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.