diff options
-rw-r--r-- | mumi/web/view/html.scm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index aa5479c..aac0d1b 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -31,7 +31,8 @@ unknown error-page issue-page - list-of-matching-bugs)) + list-of-matching-bugs + list-of-recent-issues)) (define (bug-subject* bug) (or (bug-subject bug) "(no subject)")) @@ -566,6 +567,24 @@ m1 3H6v5h2V4zm0 6H6v2h2v-2z"))))) (bugs-by-severity "important" "open")) (lambda (a b) (< (bug-num a) (bug-num b)))))) +(define* (list-of-recent-issues #:optional (max 100)) + (layout + #:body + `(,(header #:search-bar? #f) + (div + (@ (class "container")) + (h1 "Recent issues") + (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 max)))))))) + (define (list-of-matching-bugs query bugs) (layout #:body |