browser: flesh out page description

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index 7c494e9403c406c59e6afd4100fbf85130bcfcda..fbbddde372511b65a08f7053fd65e95dedcc4fc1 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -6,8 +6,10 @@ use List::Util qw(sum max first);
 Html({
        title => 'browser compatibility cheat sheet',
        version => 'v1.0',
-       description =>
-               "caniuse.",
+       description => [
+               "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)",
+               "comparing support and usage share for all popular browser versions.",
+       ],
        keywords => [qw'
                web browser support compatibility usage available feature
                html html5 css css3 svg javascript js dom mobile
@@ -241,6 +243,9 @@ sub saytitlecol {
        printf 'Resources: %s.', join(', ', map {
                sprintf '<a href="%s">%s</a>', EscapeHTML($_->{url}), $_->{title}
        } @$_) for grep { @$_ } $row->{links} // ();
+       printf '<br>Parent feature: %s.', join(', ', map {
+               sprintf '<a href="%s">%s</a>', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title}
+       } $_) for $row->{parent} || ();
        print '</div>';
 }