From f7fb006708dafd14162bfc81d28ec9a9a13b95cc Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 5 Jul 2022 11:19:32 +0530
Subject: tissue.scm: Export issue files to HTML.

* tissue.scm (#:web-files): Export issue files to HTML.
---
 tissue.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'tissue.scm')

diff --git a/tissue.scm b/tissue.scm
index 9d99a81..77cfd9c 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -3,4 +3,8 @@
  #:indexed-documents (map (lambda (filename)
                             (indexed-document (cut read-gemtext-issue filename)
                                               (string-append "/" (replace-extension filename "html"))))
-                          (gemtext-files-in-directory "issues")))
+                          (gemtext-files-in-directory "issues"))
+ #:web-files (filter-map (lambda (filename)
+                           (file (replace-extension filename "html")
+                                 (gemtext-exporter filename)))
+                         (gemtext-files-in-directory "issues")))
-- 
cgit v1.2.3