summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-07-08 16:14:19 +0530
committerArun Isaac2022-07-08 16:14:19 +0530
commite318ded5997b0d644b9b0ead36909feb1427b037 (patch)
tree6fcd43d908e2d038a1727617c52b073042f8e79c
parentab44cda29b5b442eb48cc4ca3642ecb7cf6d76b2 (diff)
downloadgn-gemtext-e318ded5997b0d644b9b0ead36909feb1427b037.tar.gz
tissue.scm: Remove html extension from web URIs.
* tissue.scm (#:indexed-documents): Remove html extension from web URIs.
-rw-r--r--tissue.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tissue.scm b/tissue.scm
index 65df566..7d0291d 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -34,11 +34,11 @@
("Zachary Sloan" "zach" "zachs" "zsloan"))
#:indexed-documents (append (map (lambda (filename)
(indexed-document (cut read-gemtext-issue filename)
- (string-append "/" (replace-extension filename "html"))))
+ (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"))))
+ (string-append "/" (string-remove-suffix ".gmi" filename))))
(gemtext-files-in-directory "topics")))
#:web-css "/style.css"
#:web-files (cons* (file "style.css"