diff options
author | Cyril Roelandt <tipecaml@gmail.com> | 2013-08-18 01:35:00 +0200 |
---|---|---|
committer | Cyril Roelandt <tipecaml@gmail.com> | 2013-08-19 01:29:56 +0200 |
commit | ba95e7028feaa3bf3b39da92dacf015a3d6690d0 (patch) | |
tree | caf19d69b1e67d27c1d7dc823c0333e5e4aa11b5 /build-aux/list-packages.scm | |
parent | f99f6fd6fa5c55f490fad7f4e444ef8a835db2ac (diff) | |
download | guix-ba95e7028feaa3bf3b39da92dacf015a3d6690d0.tar guix-ba95e7028feaa3bf3b39da92dacf015a3d6690d0.tar.gz |
list-packages: properly specify the size of images.
* build-aux/list-packages.scm (package->sxml, packages->sxml): specify the size
of images in pixels (see
http://www.w3.org/TR/html5/embedded-content-0.html#attr-dim-height)
Diffstat (limited to 'build-aux/list-packages.scm')
-rwxr-xr-x | build-aux/list-packages.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm index 5fbe3590ac..9cb07c19f7 100755 --- a/build-aux/list-packages.scm +++ b/build-aux/list-packages.scm @@ -113,7 +113,7 @@ exec guile -l "$0" \ ,(match (package-logo (package-name package)) ((? string? url) `(img (@ (src ,url) - (height "35em") + (height "35") (class "package-logo") (alt ("Logo of " ,(package-name package)))))) (_ #f)) @@ -132,7 +132,7 @@ exec guile -l "$0" \ (div (img (@ (src "graphics/guix-logo.small.png") (alt "GNU Guix and the GNU System") - (height "83em")))) + (height "83")))) (p "This web page lists the packages currently provided by the " (a (@ (href "manual/guix.html#GNU-Distribution")) "GNU system distribution") |