diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm index 8d38728f7f..ceadbef0fe 100755 --- a/build-aux/list-packages.scm +++ b/build-aux/list-packages.scm @@ -104,12 +104,13 @@ exec guile -l "$0" \ description-id))) ,(package-synopsis package)) (div (@ (id ,description-id) - (style "position: relative; display: none;")) + (class "package-description") + (style "display: none;")) ,(match (package-logo (package-name package)) ((? string? url) `(img (@ (src ,url) (height "35em") - (style "float: left; padding-right: 1em;")))) + (class "package-logo")))) (_ #f)) (p ,(package-description package)) ,(license package) @@ -121,7 +122,7 @@ exec guile -l "$0" \ "Return an HTML page as SXML describing PACKAGES." `(div (h2 "GNU Guix Package List") - (div (@ (style "margin-bottom: 5em;")) + (div (@ (id "intro")) (div (img (@ (src "graphics/guix-logo.small.png") (alt "GNU Guix and the GNU System") @@ -134,7 +135,7 @@ exec guile -l "$0" \ "Our " (a (@ (href "http://hydra.gnu.org/jobset/gnu/master")) "continuous integration system") " shows their current build status.") - (table (@ (style "border: none;")) + (table (@ (id "packages")) ,@(map package->sxml packages)))) @@ -155,8 +156,6 @@ with gnu.org server-side include and all that." GNU Guix - GNU Distribution - GNU Project - - ") + + + +") (display (sxml->xml (packages->sxml packages))) (format #t "