X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/862a7763364af7fb80ee3515a88a7f157438dbe0..a0cb024ea50865030512b67ad0a3cfaefc29b7f6:/browser.plp diff --git a/browser.plp b/browser.plp index fa317a8..bd6d8ab 100644 --- a/browser.plp +++ b/browser.plp @@ -23,12 +23,19 @@ say "

Browser compatibility

\n"; 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} + # mark last three (future) versions as unreleased, ensure current isn't + map { + $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => 0, + $_->[-4] => undef, + } $_->{versions} } for values %{ $caniuse->{agents} }; my %CSTATS = ( 'n' => 'l1', + 'n d' => 'l2', + 'n x d' => 'l2 ex', + 'p d' => 'l2', + 'a d' => 'l2', 'y' => 'l5', 'y x' => 'l5 ex', 'a' => 'l3', @@ -46,6 +53,7 @@ my %DSTATS = ( j => 'javascript required', a => 'partial', y => 'supported', + d => 'disabled by default', x => sub { join(' ', 'requires prefix', @@ -68,12 +76,12 @@ if (my ($somerow) = values %{ $caniuse->{data} }) { $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ]; } } -my @browsers = keys %versions; print <<'';

Alternate rendition of Fyrd's when can I use... page my ($canihas, $usage); +my $minusage = $get{threshold} // .5; given ($get{usage} // 'wm') { when (!$_) { # none @@ -93,11 +101,18 @@ given ($get{usage} // 'wm') { $ref .= " $_" for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; } + +my @browsers; if ($usage) { # first() does not work inside given >:( # adapt version usage to actual support data my %engineuse; # prefix => usage sum - while (my ($browser, $row) = each %$canihas) { + for my $browser (keys %versions) { + my $row = $canihas->{$browser} // {}; my $verlist = $versions{$browser} or next; + if ($minusage and sum(values %$row) < $minusage) { + delete $versions{$browser}; + next; + } my %supported = map { $_ => 1 } @$verlist; # cascade unknown versions @@ -110,6 +125,24 @@ if ($usage) { # first() does not work inside given >:( $row->{$version} = 0; # balance browser total } + # build row list for each version + if ($minusage) { + my @vershown; # $verlist replacement + my ($rowusage, @verrow) = (0); # replacement row tracking + for (@$verlist) { + push @verrow, $_; # queue each version + if (($rowusage += $row->{$_}) >= $minusage) { + push @vershown, [@verrow]; # add row + ($rowusage, @verrow) = (0); # reset row tracking + } + } + push @vershown, \@verrow if @verrow; # always add latest + @$verlist = @vershown; + } + else { + @$verlist = map { [$_] } @$verlist; + } + # reusable aggregates (grouped by prefix (engine) and browser) $engineuse{ $caniuse->{agents}->{$browser}->{prefix} } += $row->{-total} = sum(values %$row); @@ -121,7 +154,7 @@ if ($usage) { # first() does not work inside given >:( $engineuse{ $caniuse->{agents}->{$a}->{prefix} } || $canihas->{$b}->{-total} <=> $canihas->{$a}->{-total} - } @browsers; + } keys %versions; } else { # order browser columns by name grouped by engine @@ -130,7 +163,7 @@ else { $caniuse->{agents}->{$a}->{prefix} || $a cmp $b - } @browsers; + } keys %versions; } :>.

@@ -154,8 +187,8 @@ my $usagemax = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas 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 +$usagepct = 100.01 / featurescore({ # yes for every possible version + map { $_ => { map {$_ => 'y'} map { @{$_} } @{$versions{$_}} } } keys %versions }); print ''; @@ -190,17 +223,18 @@ print '', $header; print "\n"; print '
' x 3; for my $browser (@browsers) { - for my $_ (@{ $versions{$browser} }) { - my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$_}; + for (@{ $versions{$browser} }) { + my $lastver = $_->[-1]; + my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver}; my $future = defined $release; printf('%s', join(' ', - sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct), + sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct), $future ? 'development' : (), - "version $_", + 'version ' . join(', ', @{$_}), ), $future && ' class="ex"', - showversions($_), + showversions($lastver), ); } } @@ -287,7 +321,8 @@ sub saystatuscol { sub saybrowsercols { my ($id, $browser) = @_; - my $data = $caniuse->{data}->{$id}->{stats}->{$browser}; + my $feature = $caniuse->{data}->{$id}; + my $data = $feature->{stats}->{$browser}; if (ref $data eq 'ARRAY') { # special case for unsupported my $release = $caniuse->{agents}->{$browser}->{verrelease}; @@ -301,14 +336,29 @@ sub saybrowsercols { my $compare = ( !defined $ver ? undef : # last column if nameless ref $data ne 'HASH' ? '' : # unclassified if no support hash - $data->{$ver} // $prev # known or inherit from predecessor - // (grep { defined } @{$data}{ @{ $versions{$browser} } })[0] + $data->{ $ver->[-1] } // $prev # known or inherit from predecessor + // (grep { defined } @{$data}{ map { $_->[0] } @{ $versions{$browser} } })[0] ~~ 'n' && 'n' # first known version is unsupported || 'u' # unsure ); unless (!defined $prev or $prev ~~ $compare) { - my $usage = sum(map { $canihas->{$browser}->{$_} } @span); - printf '%s', + my $usage = sum(@{ $canihas->{$browser} }{ map { @{$_} } @span }); + + # strip #\d note references from support class + my @notes; + push @notes, $feature->{notes_by_num}->{$1} + while $prev =~ s/\h \# (\d+) \b//x; + + # prepare version hover details + my $title = sprintf('%.1f%% %s', $usage * $usagepct, join(', ', + map { ref $_ eq 'CODE' ? $_->($browser) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + $prev + )); + $title .= "\n".EscapeHTML($_) for @notes; + + printf('%s', join(' ', X => $CSTATS{$prev}, !$usage ? ('p0') : ('p', @@ -318,17 +368,13 @@ sub saybrowsercols { sprintf('pp%02d', $usage / $usagemax), ), scalar @span, - sprintf('%.1f%% %s', $usage * $usagepct, join(', ', - map { ref $_ eq 'CODE' ? $_->($browser) : $_ } - map { $DSTATS{$_} // () } - map { split / /, $_ } - $prev - )), - showversions(@span), + $title, + showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()), + ); undef $prev; @span = (); } - push @span, $ver; + push @span, $ver && [ grep { $data->{ $_ } eq $data->{ $ver->[-1] } } @{$ver} ]; $prev = $compare; } } @@ -358,7 +404,7 @@ sub paddedver { # normalised version number comparable as string (cmp) shift =~ /(?:.*-|^)(\d*)(.*)/; # matched (major)(.minor) of last value in range (a-B) - return sprintf('%02d', $1 || 0) . $2; + return sprintf('%02d', $1 || 99) . $2; } sub showversions { @@ -379,7 +425,7 @@ sub showversions {
supported partial - external (js/plugin) + optional missing unknown prefixed @@ -408,6 +454,8 @@ sub showversions { <:= defined $get{style} && 'set to ' :><:= $style :>
  • usage source is <:= !defined $get{usage} && 'default ' :><:= defined $usage ? "$usage" : 'not included (0)' :> +
  • usage threshold is + <:= defined $get{threshold} && 'changed to ' :><:= $minusage :>%