Alternate rendition of Fyrd's when can I use... page my ($canihas, $usage); -my $minusage = $get{threshold} // .7; +my $minusage = $get{threshold} // 1; given ($get{usage} // 'wm') { when (!$_) { # none } when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) { - printf "
Invalid browser usage data request: %s",
- 'identifier must be alphanumeric name or 0
';
+ Alert([
+ 'Invalid browser usage data request',
+ 'Identifier must be alphanumeric name or 0
.',
+ ]);
}
$canihas = do "data/browser/usage-$_.inc.pl" or do {
- printf "
Browser usage data not found: %s", $! || $@; + Alert('Browser usage data not found', $@ || $!); break; }; $usage = $_; my $ref = $canihas->{-title} || 'unknown'; - $ref = sprintf '%s', $_, $ref + $ref = showlink($ref, $_) for $canihas->{-site} || $canihas->{-source} || (); $ref .= " $_" for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; @@ -191,13 +192,14 @@ $canihas ||= { } } @browsers }; # fallback hash based on release semantics -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.01 / featurescore({ # yes for every possible version - map { $_ => { map {$_ => 'y'} map { @{$_} } @{$versions{$_}} } } keys %versions -}); +# score multiplier for percentage of all browser versions +my $usagepct = 99.99 / sum( + map { $_->{-total} // values %{$_} } values %{$canihas} +); + +$_->{usage} = featurescore($_->{stats}) * $usagepct + for values %{ $caniuse->{data} }; print '
| %s',
join(' ',
- sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
- $future ? 'development' : (),
- 'version ' . join(', ', @{$_}),
+ sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{ @{$span} }) * $usagepct),
+ 'version ' . showversions(@{$span}, undef),
+ $span->[-1] eq $lastver ? () : '(development)',
),
- $future && ' class="ex"',
- showversions($lastver),
+ !defined $lastver && ' class="ex"',
+ showversions($lastver // $span->[0]),
);
}
}
@@ -268,8 +270,9 @@ sub featurescore {
if ($canihas) {
while (my ($browser, $versions) = each %$row) {
ref $versions eq 'HASH' or next;
- while (my ($version, $_) = each %$versions) {
- $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$_};
+ while (my ($version, $status) = each %$versions) {
+ $status =~ s/\h\#\d+//g;
+ $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status};
}
}
return $rank;
@@ -296,6 +299,7 @@ sub featurescore {
sub formatnotes {
my @html = @_;
for (@html) {
+ s/\r\n?/\n/g; # windows returns
s/\h* $//gmx; # trailing whitespace
s/(?<= [^.\n]) $/./gmx; # consistently end each line by a period
Entity($_);
@@ -305,6 +309,15 @@ sub formatnotes {
return @html;
}
+sub notestotitle {
+ my @notes = @_;
+ for (@notes) {
+ EscapeHTML($_);
+ s{ \[ ([^]]*) \] \( [^)]* \) }{$1}gx; # strip link urls
+ }
+ return @notes;
+}
+
sub saytitlecol {
my ($id) = @_;
my $row = $caniuse->{data}->{$id};
@@ -333,10 +346,10 @@ sub saytitlecol {
say '';
}
printf 'Resources: %s.', join(', ', map {
- sprintf '%s', EscapeHTML($_->{url}), $_->{title}
+ showlink($_->{title}, $_->{url})
} @$_) for grep { @$_ } $row->{links} // ();
printf ' Parent feature: %s.', join(', ', map { - sprintf '%s', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title} + showlink($caniuse->{data}->{$_}->{title}, "#$_") } $_) for $row->{parent} || (); print ''; } @@ -347,7 +360,7 @@ sub saystatuscol { for ($row->{status}) { my $cell = $_ // '-'; - $cell = sprintf '%s', $_, $cell for $row->{spec} // (); + $cell = showlink($cell, $_) for $row->{spec} // (); printf ' | %s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell; } @@ -376,7 +389,12 @@ sub saybrowsercols { || 'u' # unsure ); unless (!defined $prev or $prev ~~ $compare) { - my $usage = sum(@{ $canihas->{$browser} }{ map { @{$_} } @span }); + my @vercover = (map { @{$_} } @span); + for ($ver ? @{$ver} : ()) { + $data->{$_} eq $data->{$vercover[-1]} or last; + push @vercover, $_; # matches from next span start + } + my $usage = sum(@{ $canihas->{$browser} }{@vercover}); # strip #\d note references from support class my @notes; @@ -384,13 +402,16 @@ sub saybrowsercols { 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 + my $title = sprintf('%.1f%% %s', $usage * $usagepct, join(' ', + (map { ref $_ eq 'CODE' ? $_->($browser, $vercover[0]) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + $prev + ), + 'in', $caniuse->{agents}->{$browser}->{abbr}, + showversions(@vercover, undef), )); - $title .= "\n".EscapeHTML($_) for @notes; + $title .= "\n$_" for notestotitle(@notes); printf(' | %s', join(' ', @@ -399,11 +420,10 @@ sub saybrowsercols { sprintf('p%01d', $usage * ($usagepct - .0001) / 10), sprintf('p%02d', $usage * ($usagepct - .0001)), ), - sprintf('pp%02d', $usage / $usagemax), ), scalar @span, $title, - showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()), + showversions($span[0]->[0], @span > 1 ? $span[-1]->[-1] : ()), ); undef $prev; @span = (); @@ -415,13 +435,12 @@ sub saybrowsercols { sub sayusagecol { my ($id) = @_; - print ' | ', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; + print ' | ', int $caniuse->{data}->{$id}->{usage}; } say ' |