X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5f95a5b54435b4bbd0ce280afa0c9a9bd309e609..1645330c8d4f6a13b8bcace4201ea82361fabe58:/browser.plp diff --git a/browser.plp b/browser.plp index 4245914..f6de595 100644 --- a/browser.plp +++ b/browser.plp @@ -39,7 +39,6 @@ given ($get{usage} // 'wm') { :>.
-feature', (map { my $name = $caniuse->{agents}->{$_}->{browser}; - sprintf(' | %s', + sprintf(' | %s',
scalar @{ $versions{$_} },
+ join(' ', map {"b-a-$_"} grep {$_}
+ $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'},
+ ),
join(' ',
sprintf('%.1f%%', sum(values %{ $canihas->{$_} })),
$name,
@@ -122,8 +138,11 @@ print '', $header;
print "\n' x 3;
for my $browser (@browsers) {
- printf(' | %s',
- $canihas->{$browser}->{$_},
+ printf(' | %s',
+ join(' ',
+ sprintf('%.1f%%', $canihas->{$browser}->{$_}),
+ "version $_",
+ ),
(map {
defined $_ && !$_ && ' class="ex"'
} $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
@@ -131,7 +150,8 @@ for my $browser (@browsers) {
) for @{ $versions{$browser} };
}
print ' | ' x 1;
-print " | | %s', join(' + ', @$_), $cell; } @@ -214,7 +235,7 @@ sub saybrowsercols { unless (!defined $prev or ref $data eq 'HASH' && $data->{$prev} ~~ $data->{$ver}) { my $usage = sum(map { $canihas->{$browser}->{$_} } @span); - printf ' | %s', + printf ' | %s', join(' ', X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' }, !$usage ? ('p0') : ('p', @@ -224,7 +245,12 @@ sub saybrowsercols { sprintf('pp%02d', $usage / $scorediv), ), scalar @span, - $usage, + sprintf('%.1f%% %s', $usage, join(', ', + map { ref $_ eq 'CODE' ? $_->($browser) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + ref $data eq 'HASH' && $data->{$prev} || 'u' + )), showversions(@span), undef $prev; @span = (); @@ -255,9 +281,8 @@ for my $id (sort { sayusagecol($id); say ''; } -print ''; -print ' | ', $header; -print '
---|