diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-21 17:14:42 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-21 17:14:42 +0100 |
| commit | 9d011d1bb8aa870228a9a618d65a2cea3ff5e8e4 (patch) | |
| tree | 615621c2c02e1193fa83ac92ff52ec898209faec /guix-qa-frontpage/view | |
| parent | b10142110a9915838368d381d65493c28304a55d (diff) | |
| download | qa-frontpage-9d011d1bb8aa870228a9a618d65a2cea3ff5e8e4.tar qa-frontpage-9d011d1bb8aa870228a9a618d65a2cea3ff5e8e4.tar.gz | |
Support filtering by branch
Diffstat (limited to 'guix-qa-frontpage/view')
| -rw-r--r-- | guix-qa-frontpage/view/patches.scm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm index bdace25..f79e4a7 100644 --- a/guix-qa-frontpage/view/patches.scm +++ b/guix-qa-frontpage/view/patches.scm @@ -2,12 +2,15 @@ #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:use-module (ice-9 string-fun) + #:use-module (guix-qa-frontpage manage-patch-branches) #:use-module (guix-qa-frontpage issue) #:use-module (guix-qa-frontpage view util) #:export (patches-view)) (define (patches-view latest-series filtered-statuses + branch-options + filtered-branches systems-with-low-substitute-availability) (define (status->issue-status-span status) @@ -73,10 +76,11 @@ will appear first.") '((@ (open "")))) (summary "Filter issues") (form + (@ (style "text-align: left;")) + (label "By status") ,@(map (lambda (status) `(div - (@ (style "text-align: left;")) (input (@ (type "checkbox") (id ,status) (name ,status) @@ -91,6 +95,19 @@ will appear first.") "-" " ")))) %overall-statuses) + (label (@ (for "branch-filter")) + "By branch") + (select (@ (name "branch") + (id "branch-filter") + (multiple "true")) + ,@(map + (lambda (branch) + `(option (@ (value ,branch) + ,@(if (member branch filtered-branches) + '((selected "")) + '())) + ,branch)) + branch-options)) (button (@ (type "submit")) "Update"))) (table (tbody |