List closed issues on a separate page.

* closed.skb: New file.
* index.skb: Link to closed.html instead of listing closed issues.
* tissue.scm (#:web-files): Add closed.html.

1 files changed, 8 insertions, 2 deletions

diff --git a/index.skb b/index.skb
index 5c283c5..0651cab 100644
--- a/index.skb
+++ b/index.skb
@@ -58,5 +58,11 @@ to it."
                                          (not (forgotten-issue? issue))
                                          (not (unanswered-issue? issue))))
                                   (issues)))
-  (numbered-issue-listing "~a closed issues"
-                          (remove issue-open? (issues))))
+  (ref :url "/closed.html"
+       :text (format "~a closed issues"
+                     (fold (lambda (issue result)
+                             (if (issue-open? issue)
+                                 result
+                                 (1+ result)))
+                           0
+                           (issues)))))