summaryrefslogtreecommitdiff
path: root/website/www
diff options
context:
space:
mode:
authorsirgazil <felipe.lopez@openmailbox.org>2016-11-26 22:09:45 -0500
committersirgazil <felipe.lopez@openmailbox.org>2016-11-26 22:09:45 -0500
commitbb4a07180422e390233c0ad696e3b6a952acdc33 (patch)
treeee27a513cb0f81ec6a67130c34d5f3aaaa9d9008 /website/www
parent4a2d3b587a527e5f3f508744b0483b0763bcd7ef (diff)
downloadguix-artwork-bb4a07180422e390233c0ad696e3b6a952acdc33.tar
guix-artwork-bb4a07180422e390233c0ad696e3b6a952acdc33.tar.gz
website: packages: Fix invalid HTML (bug #22115).
* README (Building and running special pages): Correct environment variable. * www/packages.scm (packages-page): Move update date to the top of the page. (package->sxml): Use ID instead of NAME attribute for anchors, and move out DIV element from P element, which is invalid.
Diffstat (limited to 'website/www')
-rw-r--r--website/www/packages.scm16
1 files changed, 7 insertions, 9 deletions
diff --git a/website/www/packages.scm b/website/www/packages.scm
index 747320f..9f345ae 100644
--- a/website/www/packages.scm
+++ b/website/www/packages.scm
@@ -215,13 +215,13 @@ description-ids as formal parameters."
(title "Part of GNU")))
""))
"\n"
- (td (a (@ (href ,(source-url package))
+ (td (a (@ (id ,anchor)
+ (href ,(source-url package))
(title "Link to the Guix package source code"))
,(package-name package) " "
,(package-version package)))
"\n"
- (td (span ,(package-synopsis package)
- (a (@ (name ,anchor))))
+ (td (span ,(package-synopsis package))
(div (@ (id ,description-id))
,(match (package-logo (package-name package))
((? string? url)
@@ -231,7 +231,7 @@ description-ids as formal parameters."
(alt ("Logo of " ,(package-name package))))))
(_ #f))
"\n"
- (p ,(package-description-shtml package))
+ ,(package-description-shtml package)
"\n"
,(license package)
(a (@ (href ,(package-home-page package))
@@ -470,11 +470,9 @@ PACKAGES."
". This is a complete list of the packages. Our "
(a (@ (href "http://hydra.gnu.org/jobset/gnu/master"))
"continuous integration system")
- " shows their current build status.")
- ,(packages->sxml (all-packages))
-
- (p "Updated " ,(date->string (current-date) "~B ~e, ~Y")
- ".")))
+ " shows their current build status "
+ "(Updated " ,(date->string (current-date) "~B ~e, ~Y") ").")
+ ,(packages->sxml (all-packages))))
,(html-page-footer))))