diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-05-01 16:10:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-05-01 16:10:08 +0200 |
| commit | 75c5475f31963a171e89d83b372a4858c8741498 (patch) | |
| tree | db2cf3fd68ede0bcd19c53bb1ad35fab19f85656 /build-aux/list-packages.scm | |
| parent | abcbda48c20da3d621e8170f8de30a575f080b51 (diff) | |
| download | patches-75c5475f31963a171e89d83b372a4858c8741498.tar patches-75c5475f31963a171e89d83b372a4858c8741498.tar.gz | |
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.
Diffstat (limited to 'build-aux/list-packages.scm')
| -rwxr-xr-x | build-aux/list-packages.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm index f3e4ac2846..c4f445291b 100755 --- a/build-aux/list-packages.scm +++ b/build-aux/list-packages.scm @@ -167,7 +167,11 @@ decreasing, is 1." ,system)) `(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) |