From 720cd770bcbb8de40f308887bdfafe69020e6487 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 20 Dec 2022 16:56:32 +0100
Subject: html: Use "article" for cards.

---
 mumi/web/view/html.scm | 69 ++++++++++++++++++++++++++------------------------
 1 file changed, 36 insertions(+), 33 deletions(-)

diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index f24f1bd..0780992 100644
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -259,43 +259,46 @@ simple query language.  Here is a list of supported query terms:")
          " to submit a bug report.")
       ,(search-widget)
 
-      (div (@ (class "mt-4 h4")) "Recent activity "
+      (article
+       (h4 "Recent activity "
            (small (a (@ (href "recent")) "(More)")))
-      (table
-       (@ (class "table table-borderless table-hover js-sort-table"))
-       (thead
-        (tr (@ (class "heading"))
-            (th (@ (class "js-sort-number")) "ID")
-            (th "Subject")
-            (th "Date submitted")
-            (th "Status")))
-       (tbody
-        ,@(list-of-bugs (recent-bugs 10))))
+       (table
+        (@ (role "grid") (class "js-sort-table"))
+        (thead
+         (tr (@ (class "heading"))
+             (th (@ (class "js-sort-number")) "ID")
+             (th "Subject")
+             (th "Date submitted")
+             (th "Status")))
+        (tbody
+         ,@(list-of-bugs (recent-bugs 10)))))
 
-      (div (@ (class "mt-4 h4")) "Forgotten issues "
+      (article
+       (h4 "Forgotten issues "
            (small (a (@ (href "forgotten")) "(More)")))
-      (table
-       (@ (class "table table-borderless table-hover js-sort-table"))
-       (thead
-        (tr (@ (class "heading"))
-            (th (@ (class "js-sort-number")) "ID")
-            (th "Subject")
-            (th "Date submitted")
-            (th "Status")))
-       (tbody
-        ,@(list-of-bugs (forgotten-issues 10))))
+       (table
+        (@ (role "grid") (class "js-sort-table"))
+        (thead
+         (tr (@ (class "heading"))
+             (th (@ (class "js-sort-number")) "ID")
+             (th "Subject")
+             (th "Date submitted")
+             (th "Status")))
+        (tbody
+         ,@(list-of-bugs (forgotten-issues 10)))))
 
-      (div (@ (class "mt-4 h4")) "Priority bugs")
-      (table
-       (@ (class "table table-borderless table-hover js-sort-table"))
-       (thead
-        (tr (@ (class "heading"))
-            (th (@ (class "js-sort-number")) "ID")
-            (th "Subject")
-            (th "Date submitted")
-            (th "Status")))
-       (tbody
-        ,@(priority-bugs)))))))
+      (article
+       (h4 "Priority bugs")
+       (table
+        (@ (role "grid") (class "js-sort-table"))
+        (thead
+         (tr (@ (class "heading"))
+             (th (@ (class "js-sort-number")) "ID")
+             (th "Subject")
+             (th "Date submitted")
+             (th "Status")))
+        (tbody
+         ,@(priority-bugs))))))))
 
 (define (help)
   (layout
-- 
cgit v1.2.3