diff options
| author | Arun Isaac | 2022-07-11 02:06:12 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-11 02:06:12 +0530 |
| commit | f4af154c8f40945fee4f78b9cfbf7849ff19b747 (patch) | |
| tree | 65ca8d2c4515995361dac5cec7bf31d88b75ffbb /tissue.scm | |
| parent | a9d8c5ebec1261a90e2d089cbac8a63f8ecfc4f5 (diff) | |
| download | gn-gemtext-f4af154c8f40945fee4f78b9cfbf7849ff19b747.tar.gz | |
tissue.scm: Update to tissue's new #:indexed-documents configuration.
Diffstat (limited to 'tissue.scm')
| -rw-r--r-- | tissue.scm | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -33,12 +33,14 @@ ("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")))) + (slot-set (read-gemtext-issue filename) + 'web-uri + (string-append "/" (string-remove-suffix ".gmi" filename)))) (gemtext-files-in-directory "issues")) (map (lambda (filename) - (indexed-document (cut read-gemtext-document filename) - (string-append "/" (replace-extension filename "html")))) + (slot-set (read-gemtext-document filename) + 'web-uri + (string-append "/" (string-remove-suffix ".gmi" filename)))) (gemtext-files-in-directory "topics"))) #:web-css "/style.css" #:web-files (cons* (file "style.css" |