(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
      (p "The aim with this page is that the patches to look at should be towards the
top.")
      (p "For issues with the green status (important checks passing), the oldest ones
will appear first.")
      (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)))))))