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 @@ decreasing, is 1."
,system))
`(div "status: "
,(url "x86_64-linux") " "
,(url "i686-linux") " "
,(url "mips64el-linux")))
,(list-join (map url (package-transitive-supported-systems package))
" ")))
(define (package-logo name)
(and=> (lookup-gnu-package name)