aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage')
-rw-r--r--guix-qa-frontpage/view/shared.scm32
1 files changed, 32 insertions, 0 deletions
diff --git a/guix-qa-frontpage/view/shared.scm b/guix-qa-frontpage/view/shared.scm
index 6f38a02..a9a7a9a 100644
--- a/guix-qa-frontpage/view/shared.scm
+++ b/guix-qa-frontpage/view/shared.scm
@@ -278,6 +278,38 @@
(@ (type "submit")
(style "padding: 0; width: 100%;"))
"Update")))
+ %systems-to-submit-builds-for))
+ (tr
+ (td)
+ (td)
+ ,@(map
+ (lambda (system)
+ (let* ((system-change-selected-options
+ (or (assoc-ref
+ grouped-query-parameters
+ (string-append system "-change"))
+ '()))
+ (selected-labels
+ (filter-map
+ (match-lambda
+ ((value . label)
+ (if (member (symbol->string value)
+ system-change-selected-options)
+ label
+ #f)))
+ (map
+ (lambda (change)
+ (cons change change))
+ %changes))))
+ (if (null? selected-labels)
+ '(td)
+ `(td
+ "Filtering for:"
+ (ul
+ (@ (style "margin: 0;"))
+ ,@(map (lambda (label)
+ `(li ,label))
+ selected-labels))))))
%systems-to-submit-builds-for))))
(tbody
(@ (style "overflow: auto; max-height: 40em;"))