Add a new patches missing status

4 files changed, 30 insertions, 1 deletions

diff --git a/guix-qa-frontpage/issue.scm b/guix-qa-frontpage/issue.scm
index 8563105..45603b5 100644
--- a/guix-qa-frontpage/issue.scm
+++ b/guix-qa-frontpage/issue.scm
@@ -47,6 +47,7 @@
 (define needs-looking-at-status 'needs-looking-at)
 (define unknown-status 'unknown)
 (define failed-to-apply-patches-status 'failed-to-apply-patches)
+(define patches-missing-status 'patches-missing)
 (define guix-data-service-failed-status 'guix-data-service-failed)
 
 (define %overall-statuses
@@ -55,6 +56,7 @@
         unknown-status
         needs-looking-at-status
         failed-to-apply-patches-status
+        patches-missing-status
         guix-data-service-failed-status
         bad-status))
 
@@ -68,6 +70,7 @@
             (apply max (map status-index statuses))))
 
 (define (issue-patches-overall-status patches-failed-to-apply?
+                                      patches-missing?
                                       builds-missing?
                                       derivation-changes
                                       comparison-details
@@ -145,6 +148,7 @@
   (if (eq? tags-status reviewed-looks-good-status)
       reviewed-looks-good-status
       (cond
+       (patches-missing? patches-missing-status)
        (patches-failed-to-apply? failed-to-apply-patches-status)
        ((guix-data-service-failed?) guix-data-service-failed-status)
        (else
@@ -346,9 +350,15 @@
                            (not (eq? (select-create-branch-for-issue-log
                                       database
                                       issue-number)
-                                     #f)))))
+                                     #f))))
+                         (patches-missing?
+                          (not
+                           (assoc-ref
+                            (assq-ref latest-series issue-number)
+                            "received_all"))))
                      (issue-patches-overall-status
                       patches-failed-to-apply?
+                      patches-missing?
                       builds-missing?
                       derivation-changes
                       comparison-details
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index 85e760f..b10669e 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -316,6 +316,7 @@
                       (important-checks-passing . "green")
                       (important-checks-failing . "red")
                       (failed-to-apply-patches  . "darkred")
+                      (patches-missing          . "pink")
                       (guix-data-service-failed . "yellow")
                       (needs-looking-at         . "orange")
                       (unknown                  . "grey"))
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;