summaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-07-16 22:28:06 +0200
committerLudovic Courtès <ludo@gnu.org>2013-07-16 22:28:06 +0200
commit73d9f3c5b62917b3065e6f69b1f2345707f80b5e (patch)
treeb57b2515527c9efe909716f21986fb9f34a1be9b /build-aux
parentc5a1902ae43e20714d122116ac152918d862ea8a (diff)
downloadpatches-73d9f3c5b62917b3065e6f69b1f2345707f80b5e.tar
patches-73d9f3c5b62917b3065e6f69b1f2345707f80b5e.tar.gz
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.
Diffstat (limited to 'build-aux')
-rwxr-xr-xbuild-aux/list-packages.scm19
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))))