diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-12 08:49:37 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-12 08:49:37 +0100 |
| commit | 6c3dc4e334cf7adad09ab2f49247143eadc2095b (patch) | |
| tree | 1aaa90cfbd08302cf24fafe5d1751c26e46baee3 | |
| parent | ee05ded3086f778ac9861a1d39d4f38febe38f2b (diff) | |
| download | qa-frontpage-6c3dc4e334cf7adad09ab2f49247143eadc2095b.tar qa-frontpage-6c3dc4e334cf7adad09ab2f49247143eadc2095b.tar.gz | |
Simplify patches-view
| -rw-r--r-- | guix-qa-frontpage/view/patches.scm | 42 |
1 files changed, 1 insertions, 41 deletions
diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm index fc5c575..7fb7361 100644 --- a/guix-qa-frontpage/view/patches.scm +++ b/guix-qa-frontpage/view/patches.scm @@ -127,47 +127,7 @@ will appear first.") ,id)) (td (@ (style "vertical-align: middle;")) - ,@(cond - ((eq? status 'reviewed-looks-good) - `((span (@ (aria-label "status: darkgreen") - (class "darkgreen-dot")) - (*ENTITY* "#10004")))) - ((eq? status 'important-checks-passing) - `((span (@ (aria-label "status: green") - (class "green-dot")) - (*ENTITY* "#10004")))) - ((eq? status 'important-checks-failing) - `((span (@ (aria-label "status: red") - (class "red-dot")) - (*ENTITY* "#10005")))) - ((eq? status 'failed-to-apply-patches) - `((span (@ (aria-label "status: darkred") - (class "darkred-dot")) - (*ENTITY* "#10005")))) - ((eq? status 'large-number-of-builds) - `((span (@ (aria-label "status: purple") - (class "purple-dot")) - (*ENTITY* "#10005")))) - ((eq? status 'waiting-for-build-results) - `((span (@ (aria-label "status: lightblue") - (class "lightblue-dot")) - (*ENTITY* "#127959")))) - ((eq? status 'patches-missing) - `((span (@ (aria-label "status: pink") - (class "pink-dot")) - "?"))) - ((eq? status 'guix-data-service-failed) - `((span (@ (aria-label "status: yellow") - (class "yellow-dot")) - (*ENTITY* "#10005")))) - ((eq? status 'needs-looking-at) - `((span (@ (aria-label "status: orange") - (class "orange-dot")) - (*ENTITY* "#9888")))) - (else - `((span (@ (aria-label "status: grey") - (class "grey-dot")) - "?"))))) + ,(status->issue-status-span status)) (td (@ (style "text-align: left;")) ,(assoc-ref details "name")))))) latest-series))))))) |