Show a table of branches on the homepage

1 files changed, 25 insertions, 8 deletions

diff --git a/guix-qa-frontpage/view/home.scm b/guix-qa-frontpage/view/home.scm
index 34ef358..271bef8 100644
--- a/guix-qa-frontpage/view/home.scm
+++ b/guix-qa-frontpage/view/home.scm
@@ -1,8 +1,10 @@
 (define-module (guix-qa-frontpage view home)
+  #:use-module (srfi srfi-1)
+  #:use-module (ice-9 match)
   #:use-module (guix-qa-frontpage view util)
   #:export (home))
 
-(define (home)
+(define (home branches)
   (layout
    #:description "Guix Quality Assurance"
    #:body
@@ -26,13 +28,28 @@
 
       (h2 "Branches")
       (div
-       (@ (class "row two-element-row"))
-       (section
-        (a (@ (href "/branch/gnome-team"))
-           (h3 "branch: gnome-team")))
-       (section
-        (a (@ (href "/branch/rust-team"))
-           (h3 "branch: rust-team"))))
+       (@ (class "row"))
+       (table
+        (thead
+         (tr (th "Branch")
+             (th "Request to merge")))
+        (tbody
+         ,@(append-map
+            (match-lambda
+              ((branch . details)
+               (let ((issue-number
+                      (assoc-ref details "issue_number")))
+                 `((tr
+                    (td (a (@ (href ,(string-append "/branch/" branch))
+                              (style "font-family: monospace;"))
+                           ,branch))
+                    (td ,@(if issue-number
+                              `((a (@ (href ,(string-append
+                                              "https://issues.guix.gnu.org/"
+                                              (number->string issue-number))))
+                                   "#" ,issue-number))
+                              '())))))))
+            branches))))
 
       (h2 ,(gettext "Patches" "guix-qa-frontpage"))
       (a (@ (href "/patches"))