X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8241e3a550f1eb18ed7d955dd0ebda9a4e3bc7d6..f73ec42018bd7c627db8742c92636074033f19e4:/browser.plp diff --git a/browser.plp b/browser.plp index 652f6a9..a101d74 100644 --- a/browser.plp +++ b/browser.plp @@ -1,12 +1,10 @@ <(common.inc.plp)><: -use 5.010; -use utf8; use List::Util qw(sum max first); no if $] >= 5.018, warnings => 'experimental::smartmatch'; Html({ title => 'browser compatibility cheat sheet', - version => 'v1.2', + version => '1.4', description => [ "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)", "comparing support and usage share for all popular browser versions.", @@ -69,6 +67,7 @@ my %PSTATS = ( # score percentage a => .5, 'a x' => .5, 'a d' => .1, j => .2, 'p j' => .2, 'n d' => .2, 'n x d' => .2, p => .2, 'p p' => .2, 'p d' => .1, + n => 0, u => 0, ); my %CSTATUS = ( unoff => 'l1', # unofficial @@ -81,32 +80,35 @@ my %CSTATUS = ( other => 'l0', # non-w3 ); 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 ]; - } +while (my ($browser, $row) = each %{ $caniuse->{agents} }) { + $versions{$browser} = [ + sort { paddedver($a) cmp paddedver($b) } grep { defined } + @{ $row->{versions} } + ]; } print <<'';
Alternate rendition of Fyrd's when can I use... page my ($canihas, $usage); -my $minusage = $get{threshold} // .7; +my $minusage = $get{threshold} // 1; given ($get{usage} // 'wm') { when (!$_) { # none } when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) { - printf "
Invalid browser usage data request: %s",
- 'identifier must be alphanumeric name or 0
';
+ Alert([
+ 'Invalid browser usage data request',
+ 'Identifier must be alphanumeric name or 0
.',
+ ]);
}
$canihas = do "data/browser/usage-$_.inc.pl" or do {
- printf "
Browser usage data not found: %s", $@ || $!; + Alert('Browser usage data not found', $@ || $!); break; }; $usage = $_; my $ref = $canihas->{-title} || 'unknown'; - $ref = sprintf '%s', $_, $ref + $ref = showlink($ref, $_) for $canihas->{-site} || $canihas->{-source} || (); $ref .= " $_" for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; @@ -194,13 +196,14 @@ $canihas ||= { } } @browsers }; # fallback hash based on release semantics -my $usagemax = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100; my $usagepct = 1; # score multiplier for 0..100 result # normalise usage percentage to only include shown browsers $usagepct = 100.01 / featurescore({ # yes for every possible version map { $_ => { map {$_ => 'y'} map { @{$_} } @{$versions{$_}} } } keys %versions }); +$_->{usage} = featurescore($_->{stats}) * $usagepct + for values %{ $caniuse->{data} }; print '
%s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell; } @@ -395,7 +407,7 @@ sub saybrowsercols { map { split / /, $_ } $prev )); - $title .= "\n".EscapeHTML($_) for @notes; + $title .= "\n$_" for notestotitle(@notes); printf(' | %s', join(' ', @@ -404,7 +416,6 @@ sub saybrowsercols { sprintf('p%01d', $usage * ($usagepct - .0001) / 10), sprintf('p%02d', $usage * ($usagepct - .0001)), ), - sprintf('pp%02d', $usage / $usagemax), ), scalar @span, $title, @@ -420,13 +431,12 @@ sub saybrowsercols { sub sayusagecol { my ($id) = @_; - print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; + print ' | ', int $caniuse->{data}->{$id}->{usage}; } say ' | '; for my $id (sort { - featurescore($caniuse->{data}->{$b}->{stats}) - <=> featurescore($caniuse->{data}->{$a}->{stats}) + $caniuse->{data}->{$b}->{usage} <=> $caniuse->{data}->{$a}->{usage} } keys %{ $caniuse->{data} }) { $caniuse->{data}->{$id}->{stats} or next; # skip metadata [summary] printf '