Alternate view of Fyrd's when can I use... page -with Wikimedia -browser usage statistics.
+Alternate view of Fyrd's when can I use... page<: +my ($canihas, $usage); +given ($get{usage} // 'wm') { + when (!$_) { + # none + } + when (!/^\w+$/) { + printf "
Invalid browser usage data request: %s",
+ 'identifier must be alphanumeric name or 0
';
+ }
+ $canihas = do "browser-usage-$_.inc.pl" or do {
+ printf "
Browser usage data not found: %s", $! || $@; + break; + }; + $usage = $_; + my $ref = $canihas->{-source} || 'unknown'; + $ref = sprintf '%s', $_, $ref for $canihas->{-url} || (); + $ref .= " $_" for $canihas->{-date} || (); + print "\nwith $ref browser usage statistics"; +} +:>. +
<: my $caniuse = do 'browser-support.inc.pl' or die $! || $@; +$_->{verrelease} = { + # mark last two (future) versions as unreleased, ensure current isn't + map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions} +} for values %{ $caniuse->{agents} }; my %CSTATS = ( - 'n' => 'l0', - 'y' => 'l6', - 'y x' => 'l5', - 'a' => 'l4', - 'a x' => 'l4', + 'n' => 'l1', + 'y' => 'l5', + 'y x' => 'l5 ex', + 'a' => 'l3', + 'a x' => 'l3 ex', 'p j' => 'l2', 'j' => 'l2', 'p' => 'l2', - 'u' => 'l9', + 'p p' => 'l2', + 'u' => 'l0', ); my %CSTATUS = ( - unoff => 'l0', # unofficial - wd => 'l4', # draft - cr => 'l5', # candidate - pr => 'l5', # proposed - rec => 'l6', # recommendation - ietf => 'l6', # standard + unoff => 'l1', # unofficial + wd => 'l3', # draft + cr => 'l4', # candidate + pr => 'l4', # proposed + rec => 'l5', # recommendation + other => 'l2', # non-w3 + ietf => 'l5', # standard ); -my @browsers = qw(trident gecko webkit_saf webkit_chr presto); my %versions; if (my ($somerow) = values %{ $caniuse->{data} }) { while (my ($browser, $row) = each %{ $somerow->{stats} }) { $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ]; } } +my @browsers = grep { $versions{$_} } + qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini); -my $canihas = do 'browser-usage.inc.pl' or do { - printf "Browser usage data not found: %s.
\n", $_ - for $! || $@; -}; -my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100; +$canihas ||= { + map { + $_ => +{ + map { + my $zero = $#$_ - 2; # baseline index + ($_->[$zero - 2] => .5), # past + ($_->[$zero - 1] => 10 ), # previous + ($_->[$zero + 2] => 0 ), # future + ($_->[$zero + 1] => .5), # next + ($_->[$zero ] => 30 ), # current + } $caniuse->{agents}->{$_}->{versions} + } + } @browsers +}; # fallback hash based on release semantics +my $scorediv = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100; print '| feature', (map { - sprintf(' | %s', + my $name = $caniuse->{agents}->{$_}->{browser}; + sprintf(' | %s',
scalar @{ $versions{$_} },
- sum(values %{ $canihas->{$_} }),
+ join(' ',
+ sprintf('%.1f%%', sum(values %{ $canihas->{$_} })),
+ $name,
+ ),
do {
- my $name = $caniuse->{agents}->{$_}->{browser};
- length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr};
+ length $name < 3 + @{ $versions{$_} }*2 ? $name
+ : $caniuse->{agents}->{$_}->{abbr};
},
)
} @browsers),
@@ -81,22 +121,28 @@ print '', $header;
print "\n| ' x 3;
for my $browser (@browsers) {
- printf(' | %s',
- $canihas->{$browser}->{$_}, showversions($_),
+ printf(' | %s',
+ $canihas->{$browser}->{$_},
+ (map {
+ defined $_ && !$_ && ' class="ex"'
+ } $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
+ showversions($_),
) for @{ $versions{$browser} };
}
print ' | ' x 1;
-print " | | ||
|---|---|---|---|---|---|---|---|---|
| ', $cell; + printf ' | %s', join(' + ', @$_), $cell; } - printf ' | %s', $row->{description}, $row->{title}; + + print ' | ', map {
+ sprintf('%s',
+ "#$id",
+ sprintf("try { %s; return false } catch(err) { return true }",
+ "document.getElementById('$id').classList.toggle('target')",
+ ),
+ Entity($_),
+ );
+ } $row->{title};
+ print ' ';
+ s/\.?$/./, print " ';
+}
+
+sub saystatuscol {
+ my ($id) = @_;
+ my $row = $caniuse->{data}->{$id};
+
for ($row->{status}) {
my $cell = $_ // '-';
$cell = sprintf '%s', $_, $cell for $row->{spec} // ();
- printf '$_ " for map { ref $_ ? @$_ : $_ || () } + 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', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell; } - for my $browser (@browsers) { - my ($prev, @span); - for my $ver (@{ $versions{$browser} }, undef) { - unless (!defined $prev - or $data->{$browser}->{$prev} ~~ $data->{$browser}->{$ver}) { - my $usage = sum(map { $canihas->{$browser}->{$_} } @span); - printf ' | %s', - join(' ', - X => $CSTATS{ $data->{$browser}->{$prev} }, - sprintf('opacity%.0f', $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; } -print ' |
| supported - | prefixed - | partial + | supported + | partial | external (js/plugin) - | missing + | missing + | unknown + | prefixed |
<: if ($usage) { :> + Usage percentage: + 0 - + .01 - + 1-9 - + 10 - + 20 - + majority +<: } else { :> +
| previous version | +current | +upcoming (within months) | +future (within a year) | +