list-packages: Add Hydra links only for the supported systems.

* build-aux/list-packages.scm (package->sxml)[status]: Use
  'package-transitive-supported-systems' instead of a hard-coded list of
  systems.
This commit is contained in:
Ludovic Courtès 2014-10-28 10:30:38 +01:00
parent 7491edafdb
commit bc36105651

View file

@ -162,9 +162,8 @@ (define (url system)
,system)) ,system))
`(div "status: " `(div "status: "
,(url "x86_64-linux") " " ,(list-join (map url (package-transitive-supported-systems package))
,(url "i686-linux") " " " ")))
,(url "mips64el-linux")))
(define (package-logo name) (define (package-logo name)
(and=> (lookup-gnu-package name) (and=> (lookup-gnu-package name)