diff options
author | Christopher Baines <mail@cbaines.net> | 2023-07-21 15:32:44 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-07-21 15:32:44 +0100 |
commit | ea6e5cfd3411fd2d33e267f6fe61db023c67d3fc (patch) | |
tree | ae9bf9b0b3cfda915bf8012bf76e9e6fe1d8e0c5 /guix-qa-frontpage/view/shared.scm | |
parent | 1def9d7b707349ee34ff9e47756ead257ac3c157 (diff) | |
download | qa-frontpage-ea6e5cfd3411fd2d33e267f6fe61db023c67d3fc.tar qa-frontpage-ea6e5cfd3411fd2d33e267f6fe61db023c67d3fc.tar.gz |
Provide more information on the selected options
On the package changes pages.
Diffstat (limited to 'guix-qa-frontpage/view/shared.scm')
-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;")) |