From 27713acc8b03bcbf87c60e563db37b2841a36ab3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 27 Jan 2023 01:57:35 +0000
Subject: website: Publish release tarballs on website.

* tissue.scm (#:web-files): Add release files.
* website/index.skb (Download): New section.
---
 tissue.scm        |  5 +++++
 website/index.skb | 13 +++++++++++++
 2 files changed, 18 insertions(+)

diff --git a/tissue.scm b/tissue.scm
index c2e7f37..24fbd92 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -46,6 +46,11 @@
                                        "IBMPlexSans-Bold-Latin1.woff2"
                                        "IBMPlexMono-Regular-Latin1.woff2"
                                        "IBMPlexMono-Bold-Latin1.woff2"))
+                            (filter-map (lambda (release-file)
+                                          (and (string-prefix? "website/releases/" release-file)
+                                               (file (string-append "releases/" (basename release-file))
+                                                     (copier release-file))))
+                                        (git-tracked-files (current-git-repository)))
                             (map (lambda (filename)
                                    (file (replace-extension filename "html")
                                          (gemtext-exporter filename #:engine %engine)))
diff --git a/website/index.skb b/website/index.skb
index f057627..c878e54 100644
--- a/website/index.skb
+++ b/website/index.skb
@@ -25,6 +25,19 @@ through project issues and documentation. The search interface is
 built on the ,(ref :url "https://xapian.org/" :text "Xapian search
 engine library"), and is available both as a command-line program and
 as a web server.])
+  (section :title "Download" :number #f
+    (p [Download release tarballs.])
+    ;; TODO: Auto-generate this list from git tags.
+    (itemize
+     (item [2023-01-27 ,(ref :url "/releases/tissue-0.1.0.tar.lz"
+:text "tissue-0.1.0.tar.lz") ,(ref :url
+"/releases/tissue-0.1.0.tar.lz.asc" :text
+"tissue-0.1.0.tar.lz.asc")]))
+    (p [Download ,(ref :url
+"https://systemreboot.net/about/arunisaac.pub" :text "public signing
+key").])
+    (p [Browse the tissue ,(ref :url
+"https://git.systemreboot.net/tissue/" :text "git repository").]))
   (section :title "Documentation" :number #f
     (p [The ,(ref :url "/manual/dev/en/" :text "tissue manual") is
 available online.])
-- 
cgit v1.2.3