X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/0fdebc22a878aa9bd791103c8878eeb82e006b2d..918a888d397a962465dfa834dbd0907ef4b63d4b:/browser.plp

diff --git a/browser.plp b/browser.plp
index 7c494e9..6c06a2e 100644
--- 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
@@ -86,8 +88,9 @@ given ($get{usage} // 'wm') {
 		break;
 	};
 	$usage = $_;
-	my $ref = $canihas->{-source} || 'unknown';
-	$ref = sprintf '<a href="%s">%s</a>', $_, $ref for $canihas->{-url} || ();
+	my $ref = $canihas->{-title} || 'unknown';
+	$ref = sprintf '<a href="%s">%s</a>', $_, $ref
+		for $canihas->{-site} || $canihas->{-source} || ();
 	$ref .= " $_" for $canihas->{-date} || ();
 	print "\nwith $ref browser usage statistics";
 }
@@ -241,6 +244,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>';
 }