diff options
| author | Cyril Roelandt <tipecaml@gmail.com> | 2013-08-17 20:05:48 +0200 |
|---|---|---|
| committer | Cyril Roelandt <tipecaml@gmail.com> | 2013-08-17 20:05:48 +0200 |
| commit | 0e5b0f78f65e4ae5b5b2735c86ddc1a5e4b20b7e (patch) | |
| tree | de052beb9c7121e3afb30ee8695250e8fe34b10b /build-aux | |
| parent | 9a9e72d5adfc2d1f4d4492793dde74f6714d6182 (diff) | |
| download | gnu-guix-0e5b0f78f65e4ae5b5b2735c86ddc1a5e4b20b7e.tar gnu-guix-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-x | build-aux/list-packages.scm | 3 |
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) |