blob: b19087a152ccd3c7cb0b392caf6ecddabab9c565 (
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
|
(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
(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)))))))
|