1 files changed, 19 insertions, 0 deletions
diff --git a/guix-qa-frontpage/view/branches.scm b/guix-qa-frontpage/view/branches.scm
new file mode 100644
index 0000000..90d1da7
--- /dev/null
+++ b/guix-qa-frontpage/view/branches.scm
@@ -0,0 +1,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)))))))