Add a new patches missing status

2 files changed, 18 insertions, 0 deletions

diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm
index dd583f2..bdace25 100644
--- a/guix-qa-frontpage/view/patches.scm
+++ b/guix-qa-frontpage/view/patches.scm
@@ -28,6 +28,10 @@
       '(span (@ (aria-label "status: darkred")
                 (class "darkred-dot"))
              (*ENTITY* "#10005")))
+     ((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"))
@@ -115,6 +119,10 @@ will appear first.")
                            `((span (@ (aria-label "status: darkred")
                                       (class "darkred-dot"))
                                    (*ENTITY* "#10005"))))
+                          ((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"))
diff --git a/guix-qa-frontpage/view/util.scm b/guix-qa-frontpage/view/util.scm
index 8cac983..500560f 100644
--- a/guix-qa-frontpage/view/util.scm
+++ b/guix-qa-frontpage/view/util.scm
@@ -196,6 +196,16 @@ main > header {
   text-align: center;
 }
 
+.pink-dot {
+  vertical-align: text-bottom;
+  height: 23px;
+  width: 23px;
+  background-color: pink;
+  border-radius: 50%;
+  display: inline-block;
+  text-align: center;
+}
+
 .grey-dot {
   vertical-align: text-bottom;
   height: 23px;