From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Sassmannshausen Subject: Re: [PATCH] list-packages: Add an "alt" attribute for the logos. Date: Sun, 18 Aug 2013 00:56:14 +0200 Message-ID: <1376780174.1710.2.camel@Nokia-N900> References: <1376769404-21764-1-git-send-email-tipecaml@gmail.com> Reply-To: Alex Sassmannshausen Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:55367) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VApQ4-0002ZB-4f for guix-devel@gnu.org; Sat, 17 Aug 2013 18:56:36 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VApPv-0001yV-OK for guix-devel@gnu.org; Sat, 17 Aug 2013 18:56:28 -0400 Received: from mail-wg0-x234.google.com ([2a00:1450:400c:c00::234]:35877) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VApPv-0001yR-IG for guix-devel@gnu.org; Sat, 17 Aug 2013 18:56:19 -0400 Received: by mail-wg0-f52.google.com with SMTP id b13so2466655wgh.31 for ; Sat, 17 Aug 2013 15:56:18 -0700 (PDT) In-Reply-To: <1376769404-21764-1-git-send-email-tipecaml@gmail.com> Content-ID: <1376780173.1710.1.camel@Nokia-N900> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: Cyril Roelandt , guix-devel@gnu.org Beat me to it, with a virtually identical change. :-) alex On Sat Aug 17 21:56:44 2013 Cyril Roelandt wrote: > * build-aux/list-packages.scm (package->sxml): add an alternative text > for the  logos of the packages. > --- >  build-aux/list-packages.scm | 3 ++- >  1 file changed, 2 insertions(+), 1 deletion(-) > > diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm > index a1bea69..3f17b87 100755 > --- a/build-aux/list-packages.scm > +++ b/build-aux/list-packages.scm > @@ -115,7 +115,8 @@ exec guile -l "$0"                                                          \ >                                          ((? string? url) >                                            `(img (@ (src ,url) >                                                              (height "35em") > -                                                          (class "package-logo")))) > +                                                          (class "package-logo") > +                                                          (alt ("Logo of " ,(package-name > package))))))                                        (_ #f)) >                                    (p ,(package-description package)) >                                    ,(license package) > -- > 1.8.3.1 > >