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
1 changed files with 2 additions and 1 deletions

View File

@ -115,7 +115,8 @@ exec guile -l "$0" \
((? string? url) ((? string? url)
`(img (@ (src ,url) `(img (@ (src ,url)
(height "35em") (height "35em")
(class "package-logo")))) (class "package-logo")
(alt ("Logo of " ,(package-name package))))))
(_ #f)) (_ #f))
(p ,(package-description package)) (p ,(package-description package))
,(license package) ,(license package)