X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9bb91157b74f68b8345115f4665f3d5550b442e8..1c9286ac0fd38f14787334c9de0ccb357568dcf8:/browser.plp diff --git a/browser.plp b/browser.plp index 3dc8d80..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,18 +150,19 @@ for my $browser (@browsers) {
) for @{ $versions{$browser} };
}
print ' | ' x 1;
-print " | | ', $cell; + $cell =~ s/ api$//; # trim unessential fluff in 'js api' + printf ' | %s', join(' + ', @$_), $cell; } print ' | ', map {
@@ -181,15 +202,15 @@ sub saytitlecol {
sprintf("try { %s; return false } catch(err) { return true }",
"document.getElementById('$id').classList.toggle('target')",
),
- $_,
+ Entity($_),
);
} $row->{title};
print ' ';
s/\.?$/./, print " ';
}
@@ -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 '$_ " for map { ref $_ ? @$_ : $_ || () } - $row->{description}, $row->{notes}; - printf 'Resources: %s.', join(', ', - map { qq($_->{title}) } @$_ - ) for grep { @$_ } $row->{links} // (); + Entity($row->{description}), formathtml($row->{notes}); # sic + printf 'Resources: %s.', join(', ', map { + sprintf '%s', EscapeHTML($_->{url}), $_->{title} + } @$_) for grep { @$_ } $row->{links} // (); print ' | %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 = (); @@ -242,6 +268,7 @@ sub sayusagecol { print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100; } +say ' | '; for my $id (sort { featurescore($caniuse->{data}->{$b}->{stats}) <=> featurescore($caniuse->{data}->{$a}->{stats}) @@ -254,8 +281,18 @@ for my $id (sort { sayusagecol($id); say ''; } -print '', $header; -print '
---|