diff options
| author | Arun Isaac | 2022-07-05 00:54:42 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-05 00:59:20 +0530 |
| commit | f7bf3f3e561d942f0b6720e8f23ec94b97330371 (patch) | |
| tree | 14baa4db95fdb4afef4947a98a6ab810b954307c /bin | |
| parent | 2d5e11dece7476ba9b777e19c717314f26dd031d (diff) | |
| download | tissue-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-x | bin/tissue | 14 |
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" |