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:
parent
f99f6fd6fa
commit
ba95e7028f
|
@ -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")
|
||||||
|
|
Loading…
Reference in New Issue