diff options
| -rw-r--r-- | closed.skb | 24 | ||||
| -rw-r--r-- | index.skb | 10 | ||||
| -rw-r--r-- | tissue.scm | 2 |
3 files changed, 34 insertions, 2 deletions
diff --git a/closed.skb b/closed.skb new file mode 100644 index 0000000..8d28dfc --- /dev/null +++ b/closed.skb @@ -0,0 +1,24 @@ +(use-modules (srfi srfi-1) + (srfi srfi-19) + (srfi srfi-28) + (tissue issue) + (tissue web)) + +(define (numbered-issue-listing title-format issues) + (section :title (format title-format (length issues)) + :number #f + (issue-listing (reverse issues)))) + +(document :title "GeneNetwork issue tracker" + (ref :url "https://github.com/genenetwork/gn-gemtext-threads/new/main/issues" + :text "Create new issue") + " | " + (ref :url "team.html" :text "Team agenda view") + " | " + (ref :url "topics.html" :text "Topics") + " | " + (ref :url "https://ci.genenetwork.org" :text "Continuous Integration") + " | " + (ref :url "/topics/links.html" :text "Links") + (numbered-issue-listing "~a closed issues" + (remove issue-open? (issues)))) @@ -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))))) @@ -41,6 +41,8 @@ (copier "style.css")) (file "index.html" (skribe-exporter "index.skb")) + (file "closed.html" + (skribe-exporter "closed.skb")) (file "team.html" (skribe-exporter "team.skb")) (file "topics.html" |