X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/01d61f72fed7ac041786ea69d1b080f45a4c49d1..03abf85a7ec9775993766a3fd10cd2876aef0b42:/browser.plp diff --git a/browser.plp b/browser.plp index 0fc1627..a135d35 100644 --- a/browser.plp +++ b/browser.plp @@ -1,6 +1,4 @@ <(common.inc.plp)><: -use 5.010; -use utf8; use List::Util qw(sum max first); no if $] >= 5.018, warnings => 'experimental::smartmatch'; @@ -41,23 +39,19 @@ my %CSTATS = ( 'y x' => 'l5 ex', 'a' => 'l3', 'a x' => 'l3 ex', - 'p j' => 'l2', - 'j' => 'l2', 'p' => 'l2', - 'p p' => 'l2', 'u' => 'l0', ); my %DSTATS = ( u => 'unknown', n => 'unsupported', p => 'plugin required', - j => 'javascript required', a => 'partial', y => 'supported', - d => 'disabled by default', + d => '(disabled by default)', x => sub { join(' ', - 'requires prefix', + 'with prefix', map {"-$_-"} ($caniuse->{agents}->{$_[0]}->{prefix_exceptions} // {})->{$_[1]} // $caniuse->{agents}->{$_[0]}->{prefix} // (), @@ -66,10 +60,10 @@ my %DSTATS = ( ); my %PSTATS = ( # score percentage y => 1, 'y x' => .9, - a => .5, 'a x' => .5, 'a d' => .1, - j => .2, 'p j' => .2, 'n d' => .2, 'n x d' => .2, - p => .2, 'p p' => .2, 'p d' => .1, - n => 0, u => 0, + a => .5, 'a x' => .5, 'a d' => .2, + p => .2, 'p d' => .1, + n => 0, 'n d' => .2, 'n x d' => .2, + u => 0, ); my %CSTATUS = ( unoff => 'l1', # unofficial @@ -82,32 +76,35 @@ my %CSTATUS = ( other => 'l0', # non-w3 ); my %versions; -if (my ($somerow) = values %{ $caniuse->{data} }) { - while (my ($browser, $row) = each %{ $somerow->{stats} }) { - $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ]; - } +while (my ($browser, $row) = each %{ $caniuse->{agents} }) { + $versions{$browser} = [ + sort { paddedver($a) cmp paddedver($b) } grep { defined } + @{ $row->{versions} } + ]; } print <<'';

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"; @@ -195,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 +$usagepct = 99.99 / featurescore({ # yes for every possible version map { $_ => { map {$_ => 'y'} map { @{$_} } @{$versions{$_}} } } keys %versions }); +$_->{usage} = featurescore($_->{stats}) * $usagepct + for values %{ $caniuse->{data} }; print ''; print ''; # should match first thead row @@ -234,17 +232,17 @@ print '', $header; # preceding row without any colspan to work around gecko bug print "\n"; for my $browser (@browsers) { - for (@{ $versions{$browser} }) { - my $lastver = $_->[-1]; - my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver}; - my $future = defined $release; + for my $span (@{ $versions{$browser} }) { + my $lastver = first { + !defined $caniuse->{agents}->{$browser}->{verrelease}->{$_} # stable + } reverse @{$span}; printf(''; for my $id (sort { - featurescore($caniuse->{data}->{$b}->{stats}) - <=> featurescore($caniuse->{data}->{$a}->{stats}) + $caniuse->{data}->{$b}->{usage} <=> $caniuse->{data}->{$a}->{usage} } keys %{ $caniuse->{data} }) { $caniuse->{data}->{$id}->{stats} or next; # skip metadata [summary] printf '', $id; @@ -448,13 +461,10 @@ sub paddedver { } sub showversions { - my @span = ($_[0], @_>1 ? $_[-1] : ()); - s/-.*// for $span[0]; - for (@span) { - s/^\./0./; - s/x$/.*/; - s/.*-//; - } + # title to describe minumum version and optional maximum for multiple cells + my @span = (map { split /-/ } grep { defined } @_); + return $span[0] =~ s/\.0\z//r if @_ <= 1; + splice @span, 1, -1; return join('‒', @span); }
%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"', + !defined $lastver && ' class="ex"', showversions($lastver), ); } @@ -311,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}; @@ -339,10 +346,10 @@ sub saytitlecol { say '

'; } printf 'Resources: %s.', join(', ', map { - sprintf '%s', EscapeHTML($_->{url}), EscapeHTML($_->{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 ''; } @@ -353,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; } @@ -382,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; @@ -390,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, $span[0]->[0]) : $_ } - 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(' ', @@ -405,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 = (); @@ -421,13 +435,12 @@ sub saybrowsercols { sub sayusagecol { my ($id) = @_; - print '', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; + print '', int $caniuse->{data}->{$id}->{usage}; } say '