From f4af154c8f40945fee4f78b9cfbf7849ff19b747 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 11 Jul 2022 02:06:12 +0530
Subject: tissue.scm: Update to tissue's new #:indexed-documents configuration.

---
 tissue.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/tissue.scm b/tissue.scm
index 65df566..c7f3f5b 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -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"
-- 
cgit 1.4.1