X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6ed62e14be81b861a7815703bf4c2786aefac0fe..81aefba6ac586eccbe18b4e90efc175e34fff5ad:/browser.plp diff --git a/browser.plp b/browser.plp index c258677..782bea8 100644 --- a/browser.plp +++ b/browser.plp @@ -2,33 +2,41 @@ 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.0', + version => '1.3', description => [ "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)", "comparing support and usage share for all popular browser versions.", ], keywords => [qw' - web browser support compatibility usage available feature + web browser support compatibility usage matrix available feature html html5 css css3 svg javascript js dom mobile ie internet explorer firefox chrome safari webkit opera '], stylesheet => [qw'circus dark mono red light'], - data => ['browser-support.inc.pl'], + data => ['data/browser/support.inc.pl'], }); say "

Browser compatibility

\n"; -my $caniuse = do 'browser-support.inc.pl' or die $! || $@; +my $caniuse = do 'data/browser/support.inc.pl' or die $@ || $!; $_->{verrelease} = { - # mark last two (future) versions as unreleased, ensure current isn't - map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions} + # mark last three (future) versions as unreleased, ensure current isn't + map { + $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => 0, + $_->[-4] => undef, + } $_->{versions} } for values %{ $caniuse->{agents} }; my %CSTATS = ( 'n' => 'l1', + 'n d' => 'l2', + 'n x d' => 'l2 ex', + 'p d' => 'l2', + 'a d' => 'l2', 'y' => 'l5', 'y x' => 'l5 ex', 'a' => 'l3', @@ -46,21 +54,31 @@ my %DSTATS = ( j => 'javascript required', a => 'partial', y => 'supported', + d => 'disabled by default', x => sub { join(' ', 'requires prefix', - (map "-$_-", $caniuse->{agents}->{$_[0]}->{prefix} // ()), + map {"-$_-"} + ($caniuse->{agents}->{$_[0]}->{prefix_exceptions} // {})->{$_[1]} + // $caniuse->{agents}->{$_[0]}->{prefix} // (), ); }, ); +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, +); my %CSTATUS = ( unoff => 'l1', # unofficial - wd => 'l3', # draft - cr => 'l4', # candidate - pr => 'l4', # proposed + wd => 'l2', # draft + cr => 'l3', # candidate + pr => 'l3', # proposed rec => 'l5', # recommendation - other => 'l2', # non-w3 - ietf => 'l5', # standard + ls => 'l4', # whatwg + ietf => 'l0', # standard + other => 'l0', # non-w3 ); my %versions; if (my ($somerow) = values %{ $caniuse->{data} }) { @@ -68,22 +86,22 @@ if (my ($somerow) = values %{ $caniuse->{data} }) { $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ]; } } -my @browsers = keys %versions; print <<'';

Alternate rendition of Fyrd's when can I use... page -my ($canihas, $usage, $minusage); +my ($canihas, $usage); +my $minusage = $get{threshold} // .7; given ($get{usage} // 'wm') { when (!$_) { # none } - when (!/^[a-z][\w-]+$/) { + 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'; } - $canihas = do "browser-usage-$_.inc.pl" or do { - printf "

Browser usage data not found: %s", $! || $@; + $canihas = do "data/browser/usage-$_.inc.pl" or do { + printf "

Browser usage data not found: %s", $@ || $!; break; }; $usage = $_; @@ -93,11 +111,18 @@ given ($get{usage} // 'wm') { $ref .= " $_" for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; } + +my @browsers; if ($usage) { # first() does not work inside given >:( # adapt version usage to actual support data my %engineuse; # prefix => usage sum - while (my ($browser, $row) = each %$canihas) { + for my $browser (keys %versions) { + my $row = $canihas->{$browser} // {}; my $verlist = $versions{$browser} or next; + if ($minusage and sum(values %$row) < $minusage) { + delete $versions{$browser}; + next; + } my %supported = map { $_ => 1 } @$verlist; # cascade unknown versions @@ -111,7 +136,7 @@ if ($usage) { # first() does not work inside given >:( } # build row list for each version - if ($minusage = $get{threshold} // .2) { + if ($minusage) { my @vershown; # $verlist replacement my ($rowusage, @verrow) = (0); # replacement row tracking for (@$verlist) { @@ -139,16 +164,17 @@ if ($usage) { # first() does not work inside given >:( $engineuse{ $caniuse->{agents}->{$a}->{prefix} } || $canihas->{$b}->{-total} <=> $canihas->{$a}->{-total} - } @browsers; + } keys %versions; } else { # order browser columns by name grouped by engine + @{$_} = map { [$_] } @{$_} for values %versions; @browsers = sort { $caniuse->{agents}->{$b}->{prefix} cmp $caniuse->{agents}->{$a}->{prefix} || $a cmp $b - } @browsers; + } keys %versions; } :>.

@@ -183,7 +209,7 @@ say ''; my $header = join('', '', - 'feature', + 'feature', (map { my $name = $caniuse->{agents}->{$_}->{browser}; sprintf('%s', @@ -196,17 +222,16 @@ my $header = join('', $name, ), do { - length $name < 3 + @{ $versions{$_} }*2 ? $name + length $name <= (3 * @{ $versions{$_} }) ? $name : $caniuse->{agents}->{$_}->{abbr}; }, ) } @browsers), - '%', + '%', ); print '', $header; # preceding row without any colspan to work around gecko bug print "\n"; -print '' x 3; for my $browser (@browsers) { for (@{ $versions{$browser} }) { my $lastver = $_->[-1]; @@ -223,20 +248,32 @@ for my $browser (@browsers) { ); } } -print '' x 1; say ''; -say '', $header, ''; +say '', $header; +{ + # prefix indicates browser family; count adjacent families + my (@families, %familycount); + for my $browser (@browsers) { + my $family = $caniuse->{agents}->{$browser}->{prefix}; + push @families, $family unless $familycount{$family}; + $familycount{$family} += @{ $versions{$browser} }; + } + + print "\n", ''; + printf '%s', $familycount{$_}, $_ for @families; +} +say ''; sub featurescore { # relative amount of support for given feature - state $statspts = { y=>1, 'y x'=>1, a=>.5, 'a x'=>.5, j=>.2, 'p j'=>.2, 'p p'=>.2, p=>.1 }; my $rank = 0; if (my $row = shift) { if ($canihas) { while (my ($browser, $versions) = each %$row) { ref $versions eq 'HASH' or next; - while (my ($version, $_) = each %$versions) { - $rank += ($canihas->{$browser}->{$version} || .001) * $statspts->{$_}; + while (my ($version, $status) = each %$versions) { + $status =~ s/\h\#\d+//; + $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status}; } } return $rank; @@ -254,12 +291,25 @@ sub featurescore { } splice @vers, -1, 0, @future; # move ahead to decrease precedence } - $rank += $statspts->{$_} * 2**($div--) for reverse @vers; + $rank += $PSTATS{$_} * 2**($div--) for reverse @vers; } } return $rank; } +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($_); + s{ ` ([^`]*) ` }{$1}gx; + s{ \[ ([^]]*) \] \( ([^)]*) \) }{$1}gx; + } + return @html; +} + sub saytitlecol { my ($id) = @_; my $row = $caniuse->{data}->{$id}; @@ -280,9 +330,13 @@ sub saytitlecol { ); } $row->{title}; print '
'; - s/\.?$/./, print "

$_

" for map { ref $_ ? @$_ : $_ || () } - Entity($row->{description}), - map { s/\s*\n/\n
/g; $_ } $row->{notes}; + print "

$_

" + for formatnotes($row->{description}, $row->{notes} || ()); + if (my %notes = %{ $row->{notes_by_num} }) { + say '

Browser-specific notes:'; + say "
#$_: ", formatnotes($notes{$_}) for sort keys %notes; + say '

'; + } printf 'Resources: %s.', join(', ', map { sprintf '%s', EscapeHTML($_->{url}), $_->{title} } @$_) for grep { @$_ } $row->{links} // (); @@ -306,7 +360,8 @@ sub saystatuscol { sub saybrowsercols { my ($id, $browser) = @_; - my $data = $caniuse->{data}->{$id}->{stats}->{$browser}; + my $feature = $caniuse->{data}->{$id}; + my $data = $feature->{stats}->{$browser}; if (ref $data eq 'ARRAY') { # special case for unsupported my $release = $caniuse->{agents}->{$browser}->{verrelease}; @@ -327,7 +382,22 @@ sub saybrowsercols { ); unless (!defined $prev or $prev ~~ $compare) { my $usage = sum(@{ $canihas->{$browser} }{ map { @{$_} } @span }); - printf '%s', + + # strip #\d note references from support class + my @notes; + push @notes, $feature->{notes_by_num}->{$1} + 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 + )); + $title .= "\n".EscapeHTML($_) for @notes; + + printf('%s', join(' ', X => $CSTATS{$prev}, !$usage ? ('p0') : ('p', @@ -337,13 +407,9 @@ sub saybrowsercols { sprintf('pp%02d', $usage / $usagemax), ), scalar @span, - sprintf('%.1f%% %s', $usage * $usagepct, join(', ', - map { ref $_ eq 'CODE' ? $_->($browser) : $_ } - map { $DSTATS{$_} // () } - map { split / /, $_ } - $prev - )), + $title, showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()), + ); undef $prev; @span = (); } @@ -377,7 +443,7 @@ sub paddedver { # normalised version number comparable as string (cmp) shift =~ /(?:.*-|^)(\d*)(.*)/; # matched (major)(.minor) of last value in range (a-B) - return sprintf('%02d', $1 || 0) . $2; + return sprintf('%02d', $1 || 99) . $2; } sub showversions { @@ -398,7 +464,7 @@ sub showversions {
supported partial - external (js/plugin) + optional missing unknown prefixed