From 526f422ce50823f7d78be1857f4538f600ffafd9 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 9 Jul 2022 00:27:26 +0530
Subject: bin: Make indexed documents a list of document objects.

This simplifies the interface obviating the need for an
<indexed-document> type.

* bin/tissue: Do not import (srfi srfi-9).
(<indexed-document>): Delete type.
(index): Expect indexed documents to be a list of document objects.
* tissue.scm (#:indexed-documents): Pass in a list of document
objects, instead of a list of <indexed-document> objects.
---
 tissue.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'tissue.scm')

diff --git a/tissue.scm b/tissue.scm
index 08522b4..69dba6f 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -1,8 +1,9 @@
 (tissue-configuration
  #:project "tissue"
  #:indexed-documents (map (lambda (filename)
-                            (indexed-document (cut read-gemtext-issue filename)
-                                              (string-append "/" (string-remove-suffix ".gmi" filename))))
+                            (slot-set (read-gemtext-issue filename)
+                                      'web-uri
+                                      (string-append "/" (string-remove-suffix ".gmi" filename))))
                           (gemtext-files-in-directory "issues"))
  #:web-files (cons (file "index.html"
                          (skribe-exporter "website/index.skb"))
-- 
cgit v1.2.3