X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/52ca162b3435bf2057de99e41ebb6e1fee5299db..0717d6cc5980a7fed67caf8aa227b9bff003b47b:/browser.plp diff --git a/browser.plp b/browser.plp index 8319624..863f806 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 @@ -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 ''; print ''; # should match first thead row @@ -141,7 +151,7 @@ my $header = join('', $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'}, ), join(' ', - sprintf('%.1f%%', sum(values %{ $canihas->{$_} })), + sprintf('%.1f%%', sum(values %{ $canihas->{$_} }) * $usagepct), $name, ), do { @@ -157,16 +167,19 @@ print '', $header; print "\n"; print ''; @@ -174,7 +187,7 @@ say '', $header, ''; sub featurescore { # relative amount of support for given feature - state $statspts = { y=>10, 'y x'=>10, a=>5, 'a x'=>5, j=>2, 'p j'=>2, 'p p'=>2, p=>1 }; + state $statspts = { y=>1, 'y x'=>1, a=>.5, 'a x'=>.5, j=>.2, 'p j'=>.2, 'p p'=>.2, p=>.1 }; my $rank = 0; if (my $row = shift) { if ($canihas) { @@ -226,10 +239,14 @@ sub saytitlecol { } $row->{title}; print '
'; s/\.?$/./, print "

$_

" for map { ref $_ ? @$_ : $_ || () } - Entity($row->{description}), formathtml($row->{notes}); # sic + Entity($row->{description}), + map { s/\s*\n/\n
/g; $_ } $row->{notes}; printf 'Resources: %s.', join(', ', map { sprintf '%s', EscapeHTML($_->{url}), $_->{title} } @$_) for grep { @$_ } $row->{links} // (); + printf '
Parent feature: %s.', join(', ', map { + sprintf '%s', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title} + } $_) for $row->{parent} || (); print '
'; } @@ -251,40 +268,42 @@ sub saybrowsercols { my ($prev, @span); for my $ver (@{ $versions{$browser} }, undef) { - unless (!defined $prev - or ref $data eq 'HASH' && $data->{$prev} ~~ $data->{$ver}) { + my $compare = ( + !defined $ver ? undef : # last column if nameless + ref $data ne 'HASH' ? 'u' : # unsupported if no support hash + $data->{$ver} # known + || 'u' # unsure unless oldest is unsupported + ); + unless (!defined $prev or $prev ~~ $compare) { my $usage = sum(map { $canihas->{$browser}->{$_} } @span); printf ''; @@ -303,16 +322,6 @@ for my $id (sort { say ''; say '
' 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 '
'; -sub formathtml { - my $ref = defined wantarray ? [@_] : \@_; - for (@$ref) { - s/& (?!\w)/&/gx; - s/< \s/</gx; - s/\n\K\n/
/g; - } - return @$ref; -} - sub paddedver { # normalised version number comparable as string (cmp) shift =~ /(?:.*-|^)(\d*)(.*)/; @@ -322,10 +331,11 @@ sub paddedver { sub showversions { my @span = ($_[0], @_>1 ? $_[-1] : ()); + s/-.*// for $span[0]; for (@span) { s/^\./0./; s/x$/.*/; - s/-.*//; + s/.*-//; } return join('‒', @span); }