* 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


Reply via email to