From f7bf3f3e561d942f0b6720e8f23ec94b97330371 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 5 Jul 2022 00:54:42 +0530
Subject: 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.
---
 bin/tissue | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'bin')

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"
-- 
cgit v1.2.3