diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-07-16 22:28:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-07-16 22:28:06 +0200 |
| commit | 73d9f3c5b62917b3065e6f69b1f2345707f80b5e (patch) | |
| tree | b57b2515527c9efe909716f21986fb9f34a1be9b /build-aux | |
| parent | c5a1902ae43e20714d122116ac152918d862ea8a (diff) | |
| download | gnu-guix-73d9f3c5b62917b3065e6f69b1f2345707f80b5e.tar gnu-guix-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-x | build-aux/list-packages.scm | 19 |
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)))) |