Add some more issue statuses

So it's easier to find issues that have specific problems.

2 files changed, 26 insertions, 0 deletions

diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm
index 65c693a..3d90d3f 100644
--- a/guix-qa-frontpage/view/patches.scm
+++ b/guix-qa-frontpage/view/patches.scm
@@ -50,6 +50,14 @@ will appear first.")
                            `((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 '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"))
diff --git a/guix-qa-frontpage/view/util.scm b/guix-qa-frontpage/view/util.scm
index 46875aa..03697c8 100644
--- a/guix-qa-frontpage/view/util.scm
+++ b/guix-qa-frontpage/view/util.scm
@@ -163,6 +163,15 @@ main > header {
   display: inline-block;
 }
 
+.yellow-dot {
+  vertical-align: text-bottom;
+  height: 23px;
+  width: 23px;
+  background-color: yellow;
+  border-radius: 50%;
+  display: inline-block;
+}
+
 .red-dot {
   vertical-align: text-bottom;
   height: 23px;
@@ -172,6 +181,15 @@ main > header {
   display: inline-block;
 }
 
+.darkred-dot {
+  vertical-align: text-bottom;
+  height: 23px;
+  width: 23px;
+  background-color: darkred;
+  border-radius: 50%;
+  display: inline-block;
+}
+
 .grey-dot {
   vertical-align: text-bottom;
   height: 23px;