X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/cfb20729b17e1190ba1e9b10e13096a5e52c059d..7affe2df7fee946f49e1561a5f58240bd0309b4f:/browser.plp diff --git a/browser.plp b/browser.plp index eee6096..8c6b5ed 100644 --- a/browser.plp +++ b/browser.plp @@ -6,8 +6,10 @@ use List::Util qw(sum max first); Html({ title => 'browser compatibility cheat sheet', version => 'v1.0', - description => - "caniuse.", + description => [ + "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)", + "comparing support and usage share for all popular browser versions.", + ], keywords => [qw' web browser support compatibility usage available feature html html5 css css3 svg javascript js dom mobile @@ -67,7 +69,7 @@ if (my ($somerow) = values %{ $caniuse->{data} }) { } } my @browsers = grep { $versions{$_} } - qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini); + qw(trident ie gecko firefox webkit_saf safari ios_saf webkit_chr chrome android presto opera op_mob op_mini); print <<'';
Alternate rendition of Fyrd's when can I use... page @@ -77,7 +79,7 @@ given ($get{usage} // 'wm') { when (!$_) { # none } - when (!/^\w+$/) { + when (!/^[a-z][\w-]+$/) { printf "
Invalid browser usage data request: %s",
'identifier must be alphanumeric name or 0
';
}
@@ -86,8 +88,9 @@ given ($get{usage} // 'wm') {
break;
};
$usage = $_;
- my $ref = $canihas->{-source} || 'unknown';
- $ref = sprintf '%s', $_, $ref for $canihas->{-url} || ();
+ my $ref = $canihas->{-title} || 'unknown';
+ $ref = sprintf '%s', $_, $ref
+ for $canihas->{-site} || $canihas->{-source} || ();
$ref .= " $_" for $canihas->{-date} || ();
print "\nwith $ref browser usage statistics";
}
@@ -99,9 +102,10 @@ if ($usage) {
$row->{$_} //= undef for @$verlist; # ensure stable keys during iteration
while (my ($version, $usage) = each %$row) {
next if defined $supported{$version};
- $_ = paddedver($_) for $version;
- my $next = first { paddedver($_) ge $version } @$verlist; # or next
+ my $next = first { paddedver($_) ge paddedver($version) } @$verlist
+ or warn("No fallback found for $browser v$version; $usage% ignored"), next;
$row->{$next} += $usage;
+ $row->{$version} = 0; # balance browser total
}
}
}
@@ -123,7 +127,13 @@ $canihas ||= {
}
} @browsers
}; # fallback hash based on release semantics
-my $scorediv = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100;
+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 / featurescore({ # yes for every possible version
+ map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions
+});
print '
' x 3; for my $browser (@browsers) { - printf(' | %s', - join(' ', - sprintf('%.1f%%', $canihas->{$browser}->{$_}), - "version $_", - ), - (map { - defined $_ && !$_ && ' class="ex"' - } $caniuse->{agents}->{$browser}->{verrelease}->{$_}), - showversions($_), - ) for @{ $versions{$browser} }; + for my $_ (@{ $versions{$browser} }) { + my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$_}; + my $future = defined $release; + printf(' | %s', + join(' ', + sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct), + $future ? 'development' : (), + "version $_", + ), + $future && ' class="ex"', + showversions($_), + ); + } } print ' | ' x 1; say ' | %s', join(' ', - X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' }, + X => $CSTATS{$prev}, !$usage ? ('p0') : ('p', - sprintf('p%01d', $usage / 10), - sprintf('p%02d', $usage), + sprintf('p%01d', $usage * ($usagepct - .0001) / 10), + sprintf('p%02d', $usage * ($usagepct - .0001)), ), - sprintf('pp%02d', $usage / $scorediv), + sprintf('pp%02d', $usage / $usagemax), ), scalar @span, - sprintf('%.1f%% %s', $usage, join(', ', + sprintf('%.1f%% %s', $usage * $usagepct, join(', ', map { ref $_ eq 'CODE' ? $_->($browser) : $_ } map { $DSTATS{$_} // () } map { split / /, $_ } - ref $data eq 'HASH' && $data->{$prev} || 'u' + $prev )), showversions(@span), undef $prev; @span = (); } push @span, $ver; - $prev = $ver; + $prev = $compare; } } 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 ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; } say ' | '; @@ -303,27 +331,20 @@ for my $id (sort { say ''; say '