X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/52ca162b3435bf2057de99e41ebb6e1fee5299db..ce28a2bfea95452b19fd271e1a20d7aad1511211:/browser.plp?ds=sidebyside diff --git a/browser.plp b/browser.plp index 8319624..aaafa03 100644 --- a/browser.plp +++ b/browser.plp @@ -99,9 +99,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 +124,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 ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100; + print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; } say ' | '; @@ -322,10 +329,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); }