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