bin: Set css host parameter by parameterizing the current repo.

* bin/tissue (tissue-run-web): Set css host parameter by
parameterizing the current git repository.

1 files changed, 8 insertions, 6 deletions

diff --git a/bin/tissue b/bin/tissue
index 28aa68f..36e9e3b 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -260,12 +260,14 @@ Run a web search service reading configuration from CONFIG-FILE.
                          (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))))))
+                                 (parameterize ((%current-git-repository
+                                                 (repository-open
+                                                  (string-append (assq-ref args 'state-directory)
+                                                                 "/" name "/repository"))))
+                                   (cons name
+                                         (acons 'css
+                                                (tissue-configuration-web-css (load-config))
+                                                parameters)))))
                               (or (assq-ref args 'hosts)
                                   ;; Assume current directory as default.
                                   `(("localhost"