browser: additional footer row with browser families

[sheet.git] / browser.plp

diff --git a/browser.plp b/browser.plp
index bd6d8abde4ec1a195bbf32a599397da1502e3bb1..322fa36d42d31b206302b1070c5a7a79e37bf3cd 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -240,7 +240,22 @@ for my $browser (@browsers) {
 }
 print '<td>' x 1;
 say '</thead>';
-say '<tfoot>', $header, '</tfoot>';
+say '<tfoot>', $header;
+{
+       # prefix indicates browser family; count adjacent families
+       my (@families, %familycount);
+       for my $browser (@browsers) {
+               my $family = $caniuse->{agents}->{$browser}->{prefix};
+               push @families, $family unless $familycount{$family};
+               $familycount{$family} += @{ $versions{$browser} };
+       }
+
+       print "\n", '<tr class="cat">';
+       print '<td>' x 3;
+       printf '<th colspan="%d">%s', $familycount{$_}, $_ for @families;
+       print '<td>';
+}
+say '</tfoot>';
 
 sub featurescore {
        # relative amount of support for given feature