Make sure to include more builds on the package changes pages

As previously builds that went from an unknown or blocked status wouldn't
appear.

1 files changed, 33 insertions, 13 deletions

diff --git a/guix-qa-frontpage/view/shared.scm b/guix-qa-frontpage/view/shared.scm
index a9a7a9a..ad0a52c 100644
--- a/guix-qa-frontpage/view/shared.scm
+++ b/guix-qa-frontpage/view/shared.scm
@@ -107,6 +107,9 @@
       removed-working
       removed-failing
       removed-blocked
+      unknown-to-working
+      unknown-to-failing
+      unknown-to-blocked
       unknown))
 
   (define (builds->change-by-system builds-by-system)
@@ -154,24 +157,38 @@
              'still-failing)
             ((and (eq? base-status target-status 'blocked))
              'still-blocked)
+            ((and (or (eq? 'unknown base-status)
+                      (eq? 'blocked base-status))
+                  (eq? 'succeeding target-status))
+             'unknown-to-working)
+            ((and (or (eq? 'unknown base-status)
+                      (eq? 'blocked base-status))
+                  (eq? 'failing target-status))
+             'unknown-to-failing)
+            ((and (eq? 'unknown base-status)
+                  (eq? 'blocked target-status))
+             'unknown-to-blocked)
             (else 'unknown))))))
      builds-by-system))
 
   (define (display-builds builds derivations change)
     (define %color-for-change
-      '((fixed           . "green")
-        (broken          . "red")
-        (blocked         . "yellow")
-        (still-working   . "lightgreen")
-        (still-failing   . "#FFCCCB")
-        (still-blocked   . "lightyellow")
-        (new-working     . "lightgreen")
-        (new-failing     . "red")
-        (new-blocked     . "lightyellow")
-        (removed-working . "")
-        (removed-failing . "")
-        (removed-blocked . "")
-        (unknown         . "lightgrey")))
+      '((fixed              . "green")
+        (broken             . "red")
+        (blocked            . "yellow")
+        (still-working      . "lightgreen")
+        (still-failing      . "#FFCCCB")
+        (still-blocked      . "lightyellow")
+        (new-working        . "lightgreen")
+        (new-failing        . "red")
+        (new-blocked        . "lightyellow")
+        (removed-working    . "")
+        (removed-failing    . "")
+        (removed-blocked    . "")
+        (unknown-to-working . "lightgreen")
+        (unknown-to-failing . "#FFCCCB")
+        (unknown-to-blocked . "lightyellow")
+        (unknown            . "lightgrey")))
 
     (if builds
         (let ((base-status
@@ -427,6 +444,7 @@
                                   "/package-changes?"
                                   system "-change=fixed&"
                                   system "-change=still-working&"
+                                  system "-change=unknown-to-working&"
                                   system "-change=new-working")))
                             ,(count 'target 'succeeding)))
                      (td ,@(if (> (count 'target 'failing)
@@ -439,6 +457,7 @@
                                   "/package-changes?"
                                   system "-change=broken&"
                                   system "-change=still-failing&"
+                                  system "-change=unknown-to-failing&"
                                   system "-change=new-failing")))
                             ,(count 'target 'failing)))
                      (td ,@(if (> (count 'target 'blocked)
@@ -451,6 +470,7 @@
                                   "/package-changes?"
                                   system "-change=blocked&"
                                   system "-change=still-blocked&"
+                                  system "-change=unknown-to-blocked&"
                                   system "-change=new-blocked")))
                             ,(count 'target 'blocked)))
                      (td (@ ,@(if (> (count 'target 'unknown)