From cfc072a57916c99d8304d6f478acd6860cb49d10 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sat, 24 Dec 2022 23:22:45 +0000 Subject: bin: Pass along entire project configuration object to servers. Themes should be free to access the entirety of the project configuration. It is impossible to predict which parts of the project configuration they will need. * bin/tissue (tissue-web, tissue-web-dev): Pass entire configuration object to start-web-server and start-dev-web-server respectively. * tissue/web/dev.scm: Import (tissue tissue). (handler, start-dev-web-server): Accept entire configuration object. * tissue/web/server.scm: Import (tissue tissue). (search-handler, start-web-server): Accept entire configuration object. --- bin/tissue | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'bin') diff --git a/bin/tissue b/bin/tissue index 2c05552..47c9c6f 100755 --- a/bin/tissue +++ b/bin/tissue @@ -278,7 +278,7 @@ Serve repositories specified in CONFIG-FILE over HTTP. (parameterize ((%current-git-repository (repository-open repository-directory))) (cons name - `((css . ,(tissue-configuration-web-css (load-config))) + `((project . ,(load-config)) (repository-directory . ,repository-directory) (website-directory . ,(string-append state-directory "/" name "/website")) (xapian-directory . ,(string-append state-directory "/" name "/xapian")) @@ -311,8 +311,7 @@ Serve website and issues of current repository. (start-repl (assq-ref args 'listen-repl))) (start-dev-web-server (assq-ref args 'port) %xapian-index - (tissue-configuration-web-css (load-config)) - (tissue-configuration-web-files (load-config))))))) + (load-config)))))) (define (print-usage) (format #t "Usage: ~a COMMAND [OPTIONS] [ARGS] -- cgit v1.2.3