diff options
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/view/shared.scm | 32 |
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;")) |