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.
This commit is contained in:
parent
c5a1902ae4
commit
73d9f3c5b6
|
@ -74,6 +74,17 @@ exec guile -l "$0" \
|
||||||
|
|
||||||
(->sxml (package-license package)))
|
(->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)
|
(define (package-logo name)
|
||||||
(and=> (lookup-gnu-package name)
|
(and=> (lookup-gnu-package name)
|
||||||
gnu-package-logo))
|
gnu-package-logo))
|
||||||
|
@ -103,7 +114,8 @@ exec guile -l "$0" \
|
||||||
(p ,(package-description package))
|
(p ,(package-description package))
|
||||||
,(license package)
|
,(license package)
|
||||||
(a (@ (href ,(package-home-page package)))
|
(a (@ (href ,(package-home-page package)))
|
||||||
,(package-home-page package)))))))
|
,(package-home-page package))
|
||||||
|
,(status package))))))
|
||||||
|
|
||||||
(define (packages->sxml packages)
|
(define (packages->sxml packages)
|
||||||
"Return an HTML page as SXML describing PACKAGES."
|
"Return an HTML page as SXML describing PACKAGES."
|
||||||
|
@ -118,7 +130,10 @@ exec guile -l "$0" \
|
||||||
(a (@ (href "manual/guix.html#GNU-Distribution"))
|
(a (@ (href "manual/guix.html#GNU-Distribution"))
|
||||||
"GNU system distribution")
|
"GNU system distribution")
|
||||||
" of "
|
" 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;"))
|
(table (@ (style "border: none;"))
|
||||||
,@(map package->sxml packages))))
|
,@(map package->sxml packages))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue