view: Add list-of-recent-issues.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 16:29:25 +0000 (18:29 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 22 Apr 2020 16:29:25 +0000 (18:29 +0200)
mumi/web/view/html.scm

index aa5479cc62ecb62589620030b85cb4119d60d6d7..aac0d1b3116a0ab16c61fa11c2124aec23c8979b 100644 (file)
@@ -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