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)
This commit is contained in:
Cyril Roelandt 2013-08-18 01:35:00 +02:00
parent f99f6fd6fa
commit ba95e7028f
1 changed files with 2 additions and 2 deletions

View File

@ -113,7 +113,7 @@ exec guile -l "$0" \
,(match (package-logo (package-name package)) ,(match (package-logo (package-name package))
((? string? url) ((? string? url)
`(img (@ (src ,url) `(img (@ (src ,url)
(height "35em") (height "35")
(class "package-logo") (class "package-logo")
(alt ("Logo of " ,(package-name package)))))) (alt ("Logo of " ,(package-name package))))))
(_ #f)) (_ #f))
@ -132,7 +132,7 @@ exec guile -l "$0" \
(div (div
(img (@ (src "graphics/guix-logo.small.png") (img (@ (src "graphics/guix-logo.small.png")
(alt "GNU Guix and the GNU System") (alt "GNU Guix and the GNU System")
(height "83em")))) (height "83"))))
(p "This web page lists the packages currently provided by the " (p "This web page lists the packages currently provided by the "
(a (@ (href "manual/guix.html#GNU-Distribution")) (a (@ (href "manual/guix.html#GNU-Distribution"))
"GNU system distribution") "GNU system distribution")