diff options
author | Arun Isaac | 2022-06-26 23:34:05 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-27 00:19:51 +0530 |
commit | ef47614b81052f2a2758ad26c194a44a8ce441c6 (patch) | |
tree | 9d49021f9f11bac73f58f20b84581597e8cca0b7 /tissue/tissue.scm | |
parent | c424794720dc1ada9274c5363fd201d6eeae4b0f (diff) | |
download | tissue-ef47614b81052f2a2758ad26c194a44a8ce441c6.tar.gz tissue-ef47614b81052f2a2758ad26c194a44a8ce441c6.tar.lz tissue-ef47614b81052f2a2758ad26c194a44a8ce441c6.zip |
tissue: Generalize issue-files to indexed-documents.
* tissue/tissue.scm (<tissue-configuration>)[issue-files]: Delete
field.
[indexed-documents]: New field.
* tissue/tissue.scm (tissue-configuration): Remove issue-files
argument. Add indexed-documents argument.
* bin/tissue: Import (tissue document) with doc: prefix.
(print-document, alist->document, document->text, index-document): New
functions.
(tissue-search): Display search results for generalized documents
using print-document, alist->document and document->text.
(main): Index generalized documents using index-document.
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 ...) |