X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8241e3a550f1eb18ed7d955dd0ebda9a4e3bc7d6..6e61b5be6d46cffa66793d5d78f51bcfad6e65ca:/browser.plp diff --git a/browser.plp b/browser.plp index 652f6a9..5c3f769 100644 --- a/browser.plp +++ b/browser.plp @@ -1,12 +1,10 @@ <(common.inc.plp)><: -use 5.010; -use utf8; use List::Util qw(sum max first); no if $] >= 5.018, warnings => 'experimental::smartmatch'; Html({ title => 'browser compatibility cheat sheet', - version => 'v1.2', + version => '1.4', description => [ "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)", "comparing support and usage share for all popular browser versions.", @@ -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,9 +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, + 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 @@ -81,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"; @@ -194,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 }); +$_->{usage} = featurescore($_->{stats}) * $usagepct + for values %{ $caniuse->{data} }; print ''; print ''; # should match first thead row @@ -233,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; @@ -447,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), ); } @@ -272,7 +271,7 @@ sub featurescore { while (my ($browser, $versions) = each %$row) { ref $versions eq 'HASH' or next; while (my ($version, $status) = each %$versions) { - $status =~ s/\h\#\d+//; + $status =~ s/\h\#\d+//g; $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status}; } } @@ -310,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}; @@ -338,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 ''; } @@ -352,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; } @@ -381,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; @@ -389,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(' ', @@ -404,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 = (); @@ -420,13 +435,12 @@ sub saybrowsercols { sub sayusagecol { my ($id) = @_; - print '', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; + print '', int $caniuse->{data}->{$id}->{usage}; } say '