From 632b0545b290c7f8b5f5c8f91f8ad8c5947df6bd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 12 Oct 2023 11:19:26 +0100
Subject: Include more statuses in the badges

---
 guix-qa-frontpage/server.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index 1514d7b..4a45720 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -317,6 +317,8 @@
                     '((reviewed-looks-good      . "darkgreen")
                       (important-checks-passing . "green")
                       (important-checks-failing . "red")
+                      (failed-to-apply-patches  . "darkred")
+                      (guix-data-service-failed . "yellow")
                       (needs-looking-at         . "orange")
                       (unknown                  . "grey"))
                     overall-status)
@@ -390,6 +392,48 @@
     <rect x=\"40\" width=\"100\" height=\"36\" fill=\"url(#status)\"/>
     <text x=\"90\" y=\"22\" fill=\"#000\">Succeeding</text>
   </g>
+</svg>")
+                   ((eq? overall-status 'failed-to-apply-patches)
+                    "
+<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=\"red\" />
+    <stop offset=\"1\" stop-color=\"red\" />
+  </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=\"#000\">Investigate</text>
+  </g>
+</svg>")
+                   ((eq? overall-status 'guix-data-service-failed)
+                    "
+<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=\"yellow\" />
+    <stop offset=\"1\" stop-color=\"yellow\" />
+  </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=\"#000\">Investigate</text>
+  </g>
 </svg>")
                    ((eq? overall-status 'needs-looking-at)
                     "
-- 
cgit v1.2.3