blob: f2937146d5309cb8ff71e2559f19dc006fae912c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
(define-module (guix-qa-frontpage view patches)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:use-module (guix-qa-frontpage view util)
#:export (patches-view))
(define (patches-view latest-series)
(layout
#:title "Patches"
#:body
`((main
(p "The aim with this page is that the patches to look at should be
towards the top.")
(p "With the green status (important checks passing), the oldest patches will appear first.")
(table
(tbody
,@(map (match-lambda
((id . details)
`(tr
(td (a (@ (href ,(simple-format #f "/issue/~A" id)))
,id))
(td
(img (@ (style "vertical-align: middle;")
(src ,(simple-format #f "/issue/~A.svg" id))
(width 22)
(height 22))))
(td (@ (style "text-align: left;"))
,(assoc-ref details "name")))))
latest-series)))))))
|