(th "Status")))
(tbody
(tr (@ (class "bg-light")) (th (@ (colspan 4)) "Recent activity"))
- (tr (@ (id "snippet-recent"))
- (td (@ (colspan 4)) (img (@ (src "/img/spin.gif")))))
+ ,@(list-of-bugs (recent-bugs 10))
(tr (@ (class "bg-light")) (th (@ (colspan 4)) "Priority bugs"))
- (tr (@ (id "snippet-priority"))
- (td (@ (colspan 4)) (img (@ (src "/img/spin.gif")))))))
- (script
- (@ (type "text/javascript")
- (src "/js/mumi.js")))))))
+ ,@(priority-bugs)))))))
(define (help)
(layout