diff options
| -rw-r--r-- | mumi/web/view/html.scm | 69 |
1 files 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 |