diff options
Diffstat (limited to 'tissue/tissue.scm')
-rw-r--r-- | tissue/tissue.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/tissue/tissue.scm b/tissue/tissue.scm index decd630..3bc6e41 100644 --- a/tissue/tissue.scm +++ b/tissue/tissue.scm @@ -25,18 +25,19 @@ tissue-configuration? tissue-configuration-project tissue-configuration-aliases - tissue-configuration-issue-files + tissue-configuration-indexed-documents tissue-configuration-web-css tissue-configuration-web-tags-path tissue-configuration-web-files gemtext-files-in-directory)) (define-record-type <tissue-configuration> - (make-tissue-configuration project aliases issue-files web-css web-tags-path web-files) + (make-tissue-configuration project aliases indexed-documents + web-css web-tags-path web-files) tissue-configuration? (project tissue-configuration-project) (aliases tissue-configuration-aliases) - (issue-files tissue-configuration-issue-files) + (indexed-documents tissue-configuration-indexed-documents) (web-css tissue-configuration-web-css) (web-tags-path tissue-configuration-web-tags-path) (web-files delayed-tissue-configuration-web-files)) @@ -64,7 +65,7 @@ which directory they are in." #:web-files)) #'(args ...)))) #`(apply (lambda* (#:key project (aliases '()) - (issue-files (gemtext-files-in-directory)) + (indexed-documents '()) web-css (web-tags-path "/tags") (web-files '())) "PROJECT is the name of the project. It is used in the title of the generated web pages, among other places. @@ -73,7 +74,8 @@ 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. -ISSUE-FILES is a list of files that pertain to issues. +INDEXED-DOCUMENTS is a list of <indexed-documents> objects +representing documents to index. WEB-CSS is the path to a CSS stylesheet. It is relative to the document root and must begin with a /. If it is #f, no stylesheet is @@ -84,7 +86,7 @@ per-tag issue listings are put. It must begin with a /. WEB-FILES is a list of <file> objects representing files to be written to the web output." - (make-tissue-configuration project aliases issue-files web-css web-tags-path web-files)) + (make-tissue-configuration project aliases indexed-documents web-css web-tags-path web-files)) (list #,@(append before (syntax-case after () ((web-files-key web-files rest ...) |