~ruther/guix-local

75c5475f31963a171e89d83b372a4858c8741498 — Ludovic Courtès 11 years ago abcbda4 
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.
patch browse .tar.gz 
1 files changed, 5 insertions(+), 1 deletions(-)

M build-aux/list-packages.scm

M build-aux/list-packages.scm => build-aux/list-packages.scm +5 -1
@@ 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)