summary refs log tree commit diff
path: root/build-aux/list-packages.scm
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/list-packages.scm
parent9a9e72d5adfc2d1f4d4492793dde74f6714d6182 (diff)
downloadguix-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/list-packages.scm')
-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)