From 0e5b0f78f65e4ae5b5b2735c86ddc1a5e4b20b7e Mon Sep 17 00:00:00 2001 From: Cyril Roelandt Date: Sat, 17 Aug 2013 20:05:48 +0200 Subject: [PATCH] list-packages: Add an "alt" attribute for the logos. * 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 a1bea69feb..3f17b874b1 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)