diff options
| author | Arun Isaac | 2022-06-29 01:30:05 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-29 01:30:05 +0530 |
| commit | 9d937b3b34726c24f98a0ed804e2c0c01a991ace (patch) | |
| tree | 265e5e15309e55a7f01d8697f65e561b415cdb81 | |
| parent | 2c7e45c44b57a124af38cdb87e376f8a956c496c (diff) | |
| download | gn-gemtext-9d937b3b34726c24f98a0ed804e2c0c01a991ace.tar.gz | |
tissue.scm: Replace #:issue-files with #:indexed-documents.
* tissue.scm (#:issue-files): Delete argument.
(#:indexed-documents): Add argument.
| -rw-r--r-- | tissue.scm | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -21,10 +21,6 @@ (tissue-configuration #:project "GeneNetwork issue tracker" - #:issue-files (remove (lambda (filename) - (string=? (basename filename) - "README.gmi")) - (gemtext-files-in-directory "issues")) #:aliases '(("Alexander Kabui" "Alexander" "alex" "alexk") ("Arun Isaac" "aruni") ("BonfaceKilz" "Bonface Kilz" "bonfacem") @@ -36,6 +32,14 @@ ("Arthur Centeno" "acenteno") ("jgart") ("Zachary Sloan" "zach" "zachs" "zsloan")) + #:indexed-documents (append (map (lambda (filename) + (indexed-document (cut read-gemtext-issue filename) + (string-append "/" (replace-extension filename "html")))) + (gemtext-files-in-directory "issues")) + (map (lambda (filename) + (indexed-document (cut read-gemtext-document filename) + (string-append "/" (replace-extension filename "html")))) + (gemtext-files-in-directory "topics"))) #:web-css "/style.css" #:web-files (cons* (file "style.css" (copier "style.css")) |