summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorArun Isaac2022-07-05 00:54:42 +0530
committerArun Isaac2022-07-05 00:59:20 +0530
commitf7bf3f3e561d942f0b6720e8f23ec94b97330371 (patch)
tree14baa4db95fdb4afef4947a98a6ab810b954307c /bin
parent2d5e11dece7476ba9b777e19c717314f26dd031d (diff)
downloadtissue-f7bf3f3e561d942f0b6720e8f23ec94b97330371.tar.gz
tissue-f7bf3f3e561d942f0b6720e8f23ec94b97330371.tar.lz
tissue-f7bf3f3e561d942f0b6720e8f23ec94b97330371.zip
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.
Diffstat (limited to 'bin')
-rwxr-xr-xbin/tissue14
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"