diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-26 19:24:43 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-26 21:09:02 +0100 |
| commit | 3d1b4c97bc3ff6625555797449bd057b3e1fce99 (patch) | |
| tree | dab57b7ee5c37326bfdc8734b82a9d285f4598cd /guix-qa-frontpage/server.scm | |
| parent | 71c0888ed6cd6fbcb4b860baa54e43113288ed36 (diff) | |
| download | qa-frontpage-3d1b4c97bc3ff6625555797449bd057b3e1fce99.tar qa-frontpage-3d1b4c97bc3ff6625555797449bd057b3e1fce99.tar.gz | |
Make reviewed-looks-good an issue status
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 33 |
1 files changed, 30 insertions, 3 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 77999ba..1211ae4 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -240,13 +240,18 @@ 'unknown))) (if (eq? a-overall-status b-overall-status) - (if (eq? a-overall-status - 'important-checks-passing) + (if (member a-overall-status + '(important-checks-passing + reviewed-looks-good)) (< (first a) (first b)) (> (first a) (first b))) (cond + ((eq? a-overall-status 'reviewed-looks-good) + #t) + ((eq? b-overall-status 'reviewed-looks-good) + #f) ((eq? a-overall-status 'important-checks-passing) #t) ((eq? b-overall-status 'important-checks-passing) @@ -291,7 +296,8 @@ #:ttl 3600)) (fill (or (assq-ref - '((important-checks-passing . "green") + '((reviewed-looks-good . "darkgreen") + (important-checks-passing . "green") (important-checks-failing . "red") (needs-looking-at . "orange") (unknown . "grey")) @@ -325,6 +331,27 @@ (lambda (port) (display (cond + ((eq? overall-status 'reviewed-looks-good) + " +<svg xmlns=\"http://www.w3.org/2000/svg\" width=\"272\" height=\"36\"> + <clipPath id=\"clip\"> + <rect width=\"140\" height=\"36\" rx=\"4\"/> + </clipPath> + <linearGradient id=\"job\" x1=\"0\" x2=\"0\" y1=\"0\" y2=\"1\"> + <stop offset=\"0\" stop-color=\"#666\" /> + <stop offset=\"1\" stop-color=\"#333\" /> + </linearGradient> + <linearGradient id=\"status\" x1=\"0\" x2=\"0\" y1=\"0\" y2=\"1\"> + <stop offset=\"0\" stop-color=\"green\" /> + <stop offset=\"1\" stop-color=\"darkgreen\" /> + </linearGradient> + <g clip-path=\"url(#clip)\" font-family=\"DejaVu Sans,Verdana,sans-serif\" font-size=\"14\" text-anchor=\"middle\"> + <rect width=\"40\" height=\"36\" fill=\"url(#job)\"/> + <text x=\"20\" y=\"22\" fill=\"#fff\">QA</text> + <rect x=\"40\" width=\"100\" height=\"36\" fill=\"url(#status)\"/> + <text x=\"90\" y=\"22\" fill=\"#fff\">Reviewed</text> + </g> +</svg>") ((eq? overall-status 'important-checks-passing) " <svg xmlns=\"http://www.w3.org/2000/svg\" width=\"272\" height=\"36\"> |