list-packages: Add status link only for systems supported on Hydra.
* build-aux/list-packages.scm (package->sxml)[status]: Intersect (package-transitive-supported-systems package) with %HYDRA-SUPPORTED-SYSTEMS.
This commit is contained in:
parent
abcbda48c2
commit
75c5475f31
|
@ -167,7 +167,11 @@ decreasing, is 1."
|
||||||
,system))
|
,system))
|
||||||
|
|
||||||
`(div "status: "
|
`(div "status: "
|
||||||
,(list-join (map url (package-transitive-supported-systems package))
|
,(list-join (map url
|
||||||
|
(lset-intersection
|
||||||
|
string=?
|
||||||
|
%hydra-supported-systems
|
||||||
|
(package-transitive-supported-systems package)))
|
||||||
" ")))
|
" ")))
|
||||||
|
|
||||||
(define (package-logo name)
|
(define (package-logo name)
|
||||||
|
|
Loading…
Reference in New Issue