Make patch testing conditional on master branch substitute availability

Patch testing has been disabled manually recently as master branch substitute
availability has been low, but this change automates that.

While this check is quite rough, it's generally not worth submitting builds
when the substitute availability for the master branch is low since the build
farm will be busy with master branch builds.

1 files changed, 15 insertions, 1 deletions

diff --git a/guix-qa-frontpage/view/patches.scm b/guix-qa-frontpage/view/patches.scm
index cd99fb4..4e848c9 100644
--- a/guix-qa-frontpage/view/patches.scm
+++ b/guix-qa-frontpage/view/patches.scm
@@ -4,7 +4,7 @@
   #:use-module (guix-qa-frontpage view util)
   #:export (patches-view))
 
-(define (patches-view latest-series)
+(define (patches-view latest-series systems-with-low-substitute-availability)
   (layout
    #:title "Patches"
    #:body
@@ -13,6 +13,20 @@
 top.")
       (p "For issues with the green status (important checks passing), the oldest ones
 will appear first.")
+      ,@(if (or (eq? #f systems-with-low-substitute-availability)
+                (null? systems-with-low-substitute-availability))
+            '()
+            `((p (@ (style "text-align: center; font-weight: bold;"))
+                 "Builds for new patch series suspended as low "
+                 (a (@ (href "/branch/master"))
+                    "master branch substitute availability")
+                 " for: "
+                 ,@(append-map
+                    (lambda (system)
+                      `((span (@ (style "font-family: monospace;"))
+                              ,system
+                              " ")))
+                    systems-with-low-substitute-availability))))
       (table
        (tbody
         ,@(map (match-lambda