blob: d6cb456be1d0551707217c044776f94cfbe9c193 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(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 (@ (style "text-align: left;"))
,(assoc-ref details "name")))))
latest-series)))))))
|