(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)))))))