list-packages: Add links to hydra.gnu.org.

* build-aux/list-packages.scm (package->sxml)[status]: New procedure.
  Use it at the end of each description.
  (packages->sxml): Add link to hydra.gnu.org.

1 files changed, 17 insertions, 2 deletions

diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index 398d3039cb..8d38728f7f 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -74,6 +74,17 @@ exec guile -l "$0"                              \
 
     (->sxml (package-license package)))
 
+  (define (status package)
+    (define (url system)
+      `(a (@ (href ,(string-append "http://hydra.gnu.org/job/gnu/master/"
+                                   (package-full-name package) "."
+                                   system)))
+          ,system))
+
+    `(div "status: "
+          ,(url "x86_64-linux") " "
+          ,(url "i686-linux")))
+
   (define (package-logo name)
     (and=> (lookup-gnu-package name)
            gnu-package-logo))
@@ -103,7 +114,8 @@ exec guile -l "$0"                              \
                  (p ,(package-description package))
                  ,(license package)
                  (a (@ (href ,(package-home-page package)))
-                    ,(package-home-page package)))))))
+                    ,(package-home-page package))
+                 ,(status package))))))
 
 (define (packages->sxml packages)
   "Return an HTML page as SXML describing PACKAGES."
@@ -118,7 +130,10 @@ exec guile -l "$0"                              \
          (a (@ (href "manual/guix.html#GNU-Distribution"))
             "GNU system distribution")
          " of "
-         (a (@ (href "/software/guix/guix.html")) "GNU Guix") ".")
+         (a (@ (href "/software/guix/guix.html")) "GNU Guix") ".  "
+         "Our " (a (@ (href "http://hydra.gnu.org/jobset/gnu/master"))
+                   "continuous integration system")
+         " shows their current build status.")
     (table (@ (style "border: none;"))
            ,@(map package->sxml packages))))