blob: 90d1da7dcb1a67c2fb3b16db60d1668f5bbde063 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (guix-qa-frontpage view branches)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:use-module (guix-qa-frontpage view util)
#:export (branches-view))
(define (branches-view branches)
(layout
#:title "Branches"
#:body
`((main
(table
(tbody
,@(map (lambda (branch-details)
(let ((name (assoc-ref branch-details "name")))
`(tr
(td (a (@ (href ,(simple-format #f "/branch/~A" name)))
,name)))))
branches)))))))
|