branch master updated: website: Filter on successful builds.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-artwork.

The following commit(s) were added to refs/heads/master by this push:
     new 3eb673a  website: Filter on successful builds.
3eb673a is described below

commit 3eb673ae05c7f31124fcadbbd7b123cd5c2e6fec
Author: Mathieu Othacehe <m.othacehe@gmail.com>
AuthorDate: Mon Jun 22 13:49:44 2020 +0200

    website: Filter on successful builds.
    
    * website/apps/download/templates/download-latest.scm (build-query): New
    procedure,
    (build-detail, build-product-download-url): get the query string from the
    above procedure.
---
 website/apps/download/templates/download-latest.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/website/apps/download/templates/download-latest.scm 
b/website/apps/download/templates/download-latest.scm
index c13eeb3..0b85887 100644
--- a/website/apps/download/templates/download-latest.scm
+++ b/website/apps/download/templates/download-latest.scm
@@ -43,17 +43,21 @@
   (list (make-image
          "GNU Guix System ISO-9660 image for x86_64"
          (guix-url "static/base/img/GuixSD-package.png")
-         "iso9660-image.x86_64-linux"
+         "iso9660-image"
          "ISO-9660")))
 
+(define (build-query job)
+  (format #f "query=spec:~a+status:success+system:x86_64-linux+~a"
+          default-spec job))
+
 (define (build-detail-url job)
   "Return the detail page for BUILD hosted on CI server at URL."
-  (format #f  "~a/search/latest?query=spec:~a+~a" ci-url default-spec job))
+  (format #f  "~a/search/latest?~a" ci-url (build-query job)))
 
 (define (build-product-download-url job type)
   "Return a download URL for BUILD-PRODUCT hosted on CI server at URL."
-  (format #f  "~a/search/latest/~a?query=spec:~a+~a"
-          ci-url type default-spec job))
+  (format #f  "~a/search/latest/~a?~a"
+          ci-url type (build-query job)))
 
 (define (image-table-row image)
   "Return as an HTML table row, the representation of IMAGE."