diff options
Diffstat (limited to 'tissue/tissue.scm')
| -rw-r--r-- | tissue/tissue.scm | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/tissue/tissue.scm b/tissue/tissue.scm index b0c118a..9180467 100644 --- a/tissue/tissue.scm +++ b/tissue/tissue.scm @@ -25,7 +25,6 @@ #:use-module (tissue web themes default) #:export (tissue-configuration tissue-configuration? - tissue-configuration-project tissue-configuration-aliases tissue-configuration-indexed-documents tissue-configuration-web-search-renderer @@ -33,18 +32,14 @@ gemtext-files-in-directory)) (define-record-type <tissue-configuration> - (make-tissue-configuration project aliases indexed-documents + (make-tissue-configuration aliases indexed-documents web-search-renderer web-files) tissue-configuration? - (project delayed-tissue-configuration-project) (aliases delayed-tissue-configuration-aliases) (indexed-documents delayed-tissue-configuration-indexed-documents) (web-search-renderer delayed-tissue-configuration-web-search-renderer) (web-files delayed-tissue-configuration-web-files)) -(define tissue-configuration-project - (compose force delayed-tissue-configuration-project)) - (define tissue-configuration-aliases (compose force delayed-tissue-configuration-aliases)) @@ -97,15 +92,12 @@ directory they are in." #`(delay #,arg))) #'(args :::))))))))))))) -(define-lazy (tissue-configuration #:key project (aliases '()) (indexed-documents '()) +(define-lazy (tissue-configuration #:key (aliases '()) (indexed-documents '()) (web-search-renderer (default-theme)) (web-files '())) "Construct a <tissue-configuration> object. All arguments are evaluated lazily. -@var{project} is the name of the project. It is used in the title of -the generated web pages, among other places. - @var{aliases} is a list of aliases used to refer to authors in the repository. Each element is in turn a list of aliases an author goes by, the first of which is the canonical name of that author. @@ -121,5 +113,5 @@ return the rendered SXML. @var{web-files} is a list of @code{<file>} objects representing files to be written to the web output." - (make-tissue-configuration project aliases indexed-documents + (make-tissue-configuration aliases indexed-documents web-search-renderer web-files)) |