From 5ca60b9297b551016ece6653e00d2a6f3f6f438e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 17 Mar 2022 17:36:31 +0530
Subject: web: Display task lists in web issue listings.

* tissue/web.scm (issue-list-item-markup-writer-action): Display task
lists.
---
 tissue/web.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tissue/web.scm b/tissue/web.scm
index f06f58d..8406afc 100644
--- a/tissue/web.scm
+++ b/tissue/web.scm
@@ -155,7 +155,12 @@ NEW-EXTENSION."
                     (format ", last updated ~a by ~a"
                             (markup-option markup #:last-updated-relative-date)
                             (markup-option markup #:last-updater))
-                    ""))))))
+                    "")
+                (if (zero? (markup-option markup #:tasks))
+                    ""
+                    (format "; ~a of ~a tasks done"
+                            (markup-option markup #:completed-tasks)
+                            (markup-option markup #:tasks))))))))
 
 (markup-writer 'issue-list-item
                (find-engine 'html)
-- 
cgit v1.2.3