From 4112a72b11a5cdd58618946ae66ea667280ff5c6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 14 Apr 2022 17:08:33 +0530
Subject: Add separate page for topics.

* topics.skb: New file.
* tissue.scm (#:web-files): Add topics.html.
* index.skb: Link to topics page.
---
 index.skb  |  2 ++
 tissue.scm |  2 ++
 topics.skb | 14 ++++++++++++++
 3 files changed, 18 insertions(+)
 create mode 100644 topics.skb

diff --git a/index.skb b/index.skb
index 4cc7dee..c2c057e 100644
--- a/index.skb
+++ b/index.skb
@@ -33,6 +33,8 @@ to it."
 
 (document :title "GeneNetwork issue tracker"
   (ref :url "team.html" :text "Team agenda view")
+  " | "
+  (ref :url "topics.html" :text "Topics")
   (numbered-issue-listing "~a unanswered issues"
                           (filter (lambda (issue)
                                     (and (issue-open? issue)
diff --git a/tissue.scm b/tissue.scm
index 712892e..3bcdcd7 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -43,6 +43,8 @@
                           (skribe-exporter "index.skb"))
                     (file "team.html"
                           (skribe-exporter "team.skb"))
+                    (file "topics.html"
+                          (skribe-exporter "topics.skb"))
                     (append (tag-pages)
                             (filter-map (lambda (filename)
                                           (and (string-suffix? ".gmi" filename)
diff --git a/topics.skb b/topics.skb
new file mode 100644
index 0000000..cd3c053
--- /dev/null
+++ b/topics.skb
@@ -0,0 +1,14 @@
+(use-modules (rnrs hashtables)
+             (tissue tissue))
+
+;; Steal file-details from (tissue issue) until there is a public
+;; interface for it.
+(define file-details
+  (@@ (tissue issue) file-details))
+
+(document :title "Topics"
+  (itemize (filter-map (lambda (file)
+                         (let ((file-details (file-details file)))
+                           (item (ref :url (replace-extension file "html")
+                                      :text (hashtable-ref file-details 'title file)))))
+                       (gemtext-files-in-directory "topics"))))
-- 
cgit v1.2.3