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.
This commit is contained in:
Cyril Roelandt 2013-08-17 20:05:48 +02:00
parent 9a9e72d5ad
commit 0e5b0f78f6

View File

@ -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)