X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/52ca162b3435bf2057de99e41ebb6e1fee5299db..2b01d5bea012a8731dbb0c239532a4320e7d5d78:/browser.plp?ds=sidebyside diff --git a/browser.plp b/browser.plp index 8319624..b2a7867 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 ' | ';