summaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorCyril Roelandt <tipecaml@gmail.com>2013-08-17 20:05:48 +0200
committerCyril Roelandt <tipecaml@gmail.com>2013-08-17 20:05:48 +0200
commit0e5b0f78f65e4ae5b5b2735c86ddc1a5e4b20b7e (patch)
treede052beb9c7121e3afb30ee8695250e8fe34b10b /build-aux
parent9a9e72d5adfc2d1f4d4492793dde74f6714d6182 (diff)
downloadpatches-0e5b0f78f65e4ae5b5b2735c86ddc1a5e4b20b7e.tar
patches-0e5b0f78f65e4ae5b5b2735c86ddc1a5e4b20b7e.tar.gz
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.
Diffstat (limited to 'build-aux')
-rwxr-xr-xbuild-aux/list-packages.scm3
1 files changed, 2 insertions, 1 deletions
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)