X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8448a08533738473a2f9a31537909fb6c3cf1a50..034e4b1d0b6d679e3269ecab6c055746d50d65e7:/browser.plp?ds=inline
diff --git a/browser.plp b/browser.plp
index 0531e6d..7e44f18 100644
--- a/browser.plp
+++ b/browser.plp
@@ -16,7 +16,7 @@ Html({
:>
', $id;
+
for ($row->{categories}) {
my $cell = $_ ? lc $_->[0] : '-';
print '', $cell;
}
+
print ' | ', map {
sprintf('%s',
"#$id",
@@ -193,46 +191,69 @@ for my $id (sort {
map { qq($_->{title}) } @$_
) for grep { @$_ } $row->{links} // ();
print '';
+}
+
+sub saystatuscol {
+ my ($id) = @_;
+ my $row = $caniuse->{data}->{$id};
+
for ($row->{status}) {
my $cell = $_ // '-';
$cell = sprintf '%s', $_, $cell for $row->{spec} // ();
printf ' | %s',
$caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell;
}
- for my $browser (@browsers) {
- my ($prev, @span);
- for my $ver (@{ $versions{$browser} }, undef) {
- unless (!defined $prev
- or ref $data->{$browser} eq 'HASH'
- && $data->{$browser}->{$prev} ~~ $data->{$browser}->{$ver}) {
- my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
- printf ' | %s',
- join(' ',
- X => $CSTATS{
- ref $data->{$browser} ne 'HASH' ? 'u' :
- $data->{$browser}->{$prev} // 'u'
- },
- !$usage ? ('p0') : ('p',
- sprintf('p%01d', $usage / 10),
- sprintf('p%02d', $usage),
- ),
- sprintf('pp%02d', $usage / $scorediv),
+}
+
+sub saybrowsercols {
+ my ($id, $browser) = @_;
+ my $data = $caniuse->{data}->{$id}->{stats}->{$browser};
+
+ my ($prev, @span);
+ for my $ver (@{ $versions{$browser} }, undef) {
+ unless (!defined $prev
+ or ref $data eq 'HASH' && $data->{$prev} ~~ $data->{$ver}) {
+ my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
+ printf ' | %s',
+ join(' ',
+ X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' },
+ !$usage ? ('p0') : ('p',
+ sprintf('p%01d', $usage / 10),
+ sprintf('p%02d', $usage),
),
- scalar @span,
- $usage,
- showversions(@span),
- undef $prev;
- @span = ();
- }
- push @span, $ver;
- $prev = $ver;
+ sprintf('pp%02d', $usage / $scorediv),
+ ),
+ scalar @span,
+ $usage,
+ showversions(@span),
+ undef $prev;
+ @span = ();
}
+ push @span, $ver;
+ $prev = $ver;
}
+}
+
+sub sayusagecol {
+ my ($id) = @_;
state $maxscore = featurescore({ # yes for every possible version
map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions
});
print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100;
}
+
+for my $id (sort {
+ featurescore($caniuse->{data}->{$b}->{stats})
+ <=> featurescore($caniuse->{data}->{$a}->{stats})
+} keys %{ $caniuse->{data} }) {
+ $caniuse->{data}->{$id}->{stats} or next; # skip metadata [summary]
+ printf ' |