04/08: list-packages: Add status link only for systems supported on Hydra.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit 75c5475f31963a171e89d83b372a4858c8741498
Author: Ludovic Courtès <address@hidden>
Date:   Fri May 1 16:10:08 2015 +0200

    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.
---
 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 f3e4ac2..c4f4452 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)