X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/068f457f9a60a17ca141d3b90bd7dee9aa7267bc..HEAD:/browser.plp diff --git a/browser.plp b/browser.plp index 16aad08..6d75d4a 100644 --- a/browser.plp +++ b/browser.plp @@ -1,94 +1,282 @@ <(common.inc.plp)><: -use 5.010; -use List::Util qw(sum max); +use List::Util qw(sum max first); +no if $] >= 5.018, warnings => 'experimental::smartmatch'; Html({ title => 'browser compatibility cheat sheet', - version => 'v1.0', - description => - "caniuse.", - keywords => [qw'html css browser feature'], - stylesheet => [qw'light dark circus mono red'], - data => ['browser-support.inc.pl'], + version => '1.6', + 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 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 => ['data/browser/support.inc.pl'], }); -:> -

Browser compatibility

- -

Alternate view of Fyrd's when can I use... page -with Wikimedia -browser usage statistics.

+say "

Browser compatibility

\n"; -<: -my $caniuse = do 'browser-support.inc.pl' or die $! || $@; +my $caniuse = Data('data/browser/support'); my %CSTATS = ( - n => 'di-b', - y => 'di-aa', - a => 'di-d', - 'a x' => 'di-d', - j => 'di-prop', - p => 'di-prop', - 'p j' => 'di-prop', - 'y x' => 'di-a', + 'n' => 'l1', + 'n d' => 'l2', + 'n x d' => 'l2 ex', + 'p d' => 'l2', + 'a d' => 'l2', + 'y' => 'l5', + 'y #' => 'l4', + 'y x' => 'l5 ex', + 'y x #' => 'l4 ex', + 'a' => 'l3', + 'a x' => 'l3 ex', + 'p' => 'l2', + 'u' => 'l0', + 'u d' => 'l2', +); +my %DSTATS = ( + u => 'unknown', + n => 'unsupported', + p => 'plugin required', + a => 'partial', + y => 'supported', + d => '(disabled by default)', + x => sub { + join(' ', + 'with prefix', + map {"-$_-"} + $caniuse->{agents}->{$_[0]}->{version_list}->{$_[1]}->{prefix} + // $caniuse->{agents}->{$_[0]}->{prefix} // (), + ); + }, +); +my %PSTATS = ( # score percentage + y => 1, 'y x' => .9, + 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 => 'di-rare', # unofficial - wd => 'di-b', # draft - pr => 'di-prop', # proposed - cr => 'di-d', # candidate - rec => 'di-a', # recommendation - ietf => 'di-aa', # standard + unoff => 'l1', # unofficial + wd => 'l2', # draft + cr => 'l3', # candidate + pr => 'l3', # proposed + rec => 'l5', # recommendation + ls => 'l4', # whatwg + ietf => 'l0', # standard + other => 'l0', # non-w3 ); -my @browsers = qw(trident gecko webkit_saf webkit_chr presto); 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} = [@{ $row->{versions} }]; +} + +my $ref = showlink('Can I use', 'https://caniuse.com/'); +$ref =~ s/(?=>)/ title="updated $_"/ + for map { s/[\sT].*//r } $caniuse->{-date} || (); +$ref = "Fyrd's $ref page"; +say '

Alternate rendition of '.$ref; + +my ($canihas, $usage); +my $minusage = $get{threshold} // 1; +given ($get{usage} // 'wm') { + when (!$_) { + # none + } + when (!m{ \A [a-z]\w+ (?:/\d[\d-]*\d)? \z }x) { + Alert([ + 'Invalid browser usage data request', + 'Identifier must be alphanumeric name or 0.', + ]); } + $canihas = eval { Data("data/browser/usage-$_") } or do { + Alert('Browser usage data not found', $@); + break; + }; + $usage = $_; + my $ref = $canihas->{-title} || 'unknown'; + $ref = showlink($ref, $_) + for $canihas->{-site} || $canihas->{-source} || (); + $ref =~ s/(?=>)/ title="updated $_"/ for $canihas->{-date} || (); + print "\nwith $ref browser usage statistics"; } -my $canihas = do 'browser-usage.inc.pl' or do { - printf "

Browser usage data not found: %s.

\n", $_ - for $! || $@; -}; -my $scorediv = (max(map { sum(values %$_) } values %$canihas) // 1) / 100; +my @browsers; +if ($usage) { # first() does not work inside given >:( + # adapt version usage to actual support data + my %engineuse; # prefix => usage sum + 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 + $row->{$_} //= undef for @$verlist; # ensure stable keys during iteration + while (my ($version, $usage) = each %$row) { + next if defined $supported{$version}; + 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 + } + + # build row list for each version + if ($minusage) { + my @vershown; # $verlist replacement + my ($rowusage, @verrow) = (0); # replacement row tracking + for (@$verlist) { + push @verrow, $_; # queue each version + if (($rowusage += $row->{$_}) >= $minusage) { + push @vershown, [@verrow]; # add row + ($rowusage, @verrow) = (0); # reset row tracking + } + } + push @vershown, \@verrow if @verrow; # always add latest + @$verlist = @vershown; + } + else { + @$verlist = map { [$_] } @$verlist; + } + + # reusable aggregates (grouped by prefix (engine) and browser) + $engineuse{ $caniuse->{agents}->{$browser}->{prefix} } += + $row->{-total} = sum(values %$row); + } + + # order browser columns by usage grouped by engine + @browsers = sort { + $engineuse{ $caniuse->{agents}->{$b}->{prefix} } <=> + $engineuse{ $caniuse->{agents}->{$a}->{prefix} } + || + $canihas->{$b}->{-total} <=> $canihas->{$a}->{-total} + } 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 + } keys %versions; +} +:>. +

+ +<: +$canihas ||= { + map { + $_ => +{ + map { + my $zero = $#$_ - 2; # baseline index + ($_->[$zero - 2] => .5), # past + ($_->[$zero - 1] => 10 ), # previous + ($_->[$zero + 2] => 0 ), # future + ($_->[$zero + 1] => .5), # next + ($_->[$zero ] => 30 ), # current + } $caniuse->{agents}->{$_}->{versions} + } + } @browsers +}; # fallback hash based on release semantics + +# score multiplier for percentage of all browser versions +my $usagepct = 99.99 / sum( + map { $_->{-total} // values %{$_} } + map { $canihas->{$_} } + grep { !/^-/ } + keys %{$canihas} +); + +$_->{usage} = featurescore($_->{stats}) * $usagepct + for values %{ $caniuse->{data} }; print ''; -print '' x 3; +print ''; # should match first thead row printf '', scalar @{ $versions{$_} } for @browsers; -print "\n"; +say ''; -print ''; -print '', + '', $header; # preceding row without any colspan to work around gecko bug print "\n"; -print '\n"; +say ''; +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 ''; sub featurescore { # relative amount of support for given feature - state $statspts = { y=>10, 'y x'=>9, a=>5, 'a x'=>5, j=>2, 'p j'=>2, p=>1 }; my $rank = 0; if (my $row = shift) { if ($canihas) { while (my ($browser, $versions) = each %$row) { - while (my ($version, $_) = each %$versions) { - $rank += $canihas->{$browser}->{$version} * $statspts->{$_}; + ref $versions eq 'HASH' or next; + my $prev; + for my $version (@{ $caniuse->{agents}->{$browser}->{versions} }) { + my $status = $versions->{$version} // $prev; + $status =~ s/\h\#\d+//g; + $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$status}; + $prev = $status; } } return $rank; @@ -106,70 +294,187 @@ 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; } -for my $id (sort { - featurescore($caniuse->{data}->{$b}->{stats}) - <=> featurescore($caniuse->{data}->{$a}->{stats}) -} keys %{ $caniuse->{data} }) { +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{ \(\K (?: \Qhttps://caniuse.com\E )? (?: /? \#feat= | / ) }{#}gx; + s{ \[ ([^]]*) \] \( ([^)]*) \) }{$1}gx; + } + 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}; - my $data = $row->{stats} or next; # skip metadata [summary] - printf '', $id; + for ($row->{categories}) { my $cell = $_ ? lc $_->[0] : '-'; - print '
feature'; -printf('%s', - scalar @{ $versions{$_} }, - do { +my $header = join('', + '
feature', + (map { my $name = $caniuse->{agents}->{$_}->{browser}; - length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr}; - }, -) for @browsers; -print '%'; + sprintf('%s', + scalar @{ $versions{$_} }, + join(' ', map {"b-a-$_"} grep {$_} + $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'}, + ), + join(' ', + sprintf('%.1f%%', $canihas->{$_}->{-total} * $usagepct), + $name, + ), + do { + length $name <= (3 * @{ $versions{$_} }) ? $name + : $caniuse->{agents}->{$_}->{abbr}; + }, + ) + } @browsers), + '%', +); +print '
' x 3; for my $browser (@browsers) { - printf('%s', - $canihas->{$browser}->{$_}, showversions($_), - ) for @{ $versions{$browser} }; + for my $span (@{ $versions{$browser} }) { + my $lastver = first { + $caniuse->{agents}->{$browser}->{version_list}->{$_}->{release_date} # stable + } reverse @{$span}; + printf('%s', + join(' ', + sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{ @{$span} }) * $usagepct), + 'version ' . showversions(@{$span}, undef), + (map { + $_ ? sprintf('(released %d)', $_/3600/24/365.25 + 1970) : '(development)' + } $caniuse->{agents}->{$browser}->{version_list}->{$lastver}->{release_date}), + ), + !defined $lastver && ' class="ex"', + showversions($lastver // $span->[0]), + ); + } } -print '' x 1; -print "
%s', $familycount{$_}, $_ for @families; +} +say '
', $cell; + $cell =~ s/ api$//; # trim unessential fluff in 'js api' + printf '%s', join(' + ', @$_), $cell; } - printf '%s', $row->{description}, $row->{title}; + + print '', map { + sprintf('%s', + "#$id", + sprintf("try { %s; return false } catch(err) { return true }", + "document.getElementById('$id').classList.toggle('target')", + ), + Entity($_), + ); + } $row->{title}; + print '
'; + 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 { + showlink($_->{title}, $_->{url}) + } @$_) for grep { @$_ } $row->{links} // (); + printf '
Parent feature: %s.', join(', ', map { + showlink($caniuse->{data}->{$_}->{title}, "#$_") + } $_) for $row->{parent} || (); + print '
'; +} + +sub saystatuscol { + my ($id) = @_; + my $row = $caniuse->{data}->{$id}; + for ($row->{status}) { my $cell = $_ // '-'; - $cell = sprintf '%s', $_, $cell for $row->{spec} // (); - printf '		%s', + $cell = showlink($cell, $_) for $row->{spec} // (); + printf '%s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell; } - for my $browser (@browsers) { - my ($prev, @span); - for my $ver (@{ $versions{$browser} }, undef) { - unless (!defined $prev - or $data->{$browser}->{$prev} ~~ $data->{$browser}->{$ver}) { - my $usage = sum(map { $canihas->{$browser}->{$_} } @span); - printf '%s', - join(' ', - $CSTATS{ $data->{$browser}->{$prev} }, - sprintf('opacity%.0f', $usage / $scorediv), - ), - scalar @span, - $usage, - showversions(@span), - undef $prev; - @span = (); +} + +sub saybrowsercols { + my ($id, $browser) = @_; + my $feature = $caniuse->{data}->{$id}; + my $data = $feature->{stats}->{$browser}; + if (ref $data eq 'ARRAY') { + # special case for unsupported + $data = { + map { $_ => 'n' } + keys %{ $caniuse->{agents}->{$browser}->{version_list} } + }; + } + + my ($prev, @span); + for my $ver (@{ $versions{$browser} }, undef) { + my $compare = ( + !defined $ver ? undef : # last column if nameless + ref $data ne 'HASH' ? '' : # unclassified if no support hash + (first { defined } @{$data}{ reverse @{$ver} }) # last known version + // $prev # inherit from predecessor + || 'u' # unsure + ); + if (defined $prev and not $prev ~~ $compare) { + # different columns + my @vercover = (map { @{$_} } @span); # accumulated conforming versions + for ($ver ? @{$ver} : ()) { + last if defined $data->{$_}; # until different + push @vercover, $_; # matches from next span start } - push @span, $ver; - $prev = $ver; + my $usage = sum(@{ $canihas->{$browser} }{@vercover}); + + # 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, $vercover[0]) : $_ } + map { $DSTATS{$_} // () } + map { split / /, $_ } + $prev + ), + 'in', $caniuse->{agents}->{$browser}->{abbr}, + showversions(@vercover, undef), + )); + $title .= "\n$_" for notestotitle(@notes); + + $prev .= ' #' if @notes and $prev =~ /^y/; + printf('%s', + join(' ', + X => $CSTATS{$prev}, + !$usage ? ('p0') : ('p', + sprintf('p%01d', $usage * ($usagepct - .0001) / 10), + sprintf('p%02d', $usage * ($usagepct - .0001)), + ), + ), + scalar @span, + $title, + showversions($span[0]->[0], @span > 1 && defined $ver ? $span[-1]->[-1] : ()), + ); + undef $prev; + @span = (); } + if ($ver) { + my $startversion = first { defined $data->{ $ver->[$_] } } + reverse 0 .. $#{$ver}; # compare index + push @span, [ @{$ver}[ $startversion .. $#{$ver} ] ]; + } + $prev = $compare; } - state $maxscore = featurescore({ # yes for every possible version - map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions - }); - print '', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100; } -print '
'; + +sub sayusagecol { + my ($id) = @_; + print '', int $caniuse->{data}->{$id}->{usage}; +} + +say ''; +for my $id (sort { + $caniuse->{data}->{$b}->{usage} <=> $caniuse->{data}->{$a}->{usage} +} keys %{ $caniuse->{data} }) { + $caniuse->{data}->{$id}->{stats} or next; # skip metadata [summary] + printf '', $id; + saytitlecol($id); + saystatuscol($id); + saybrowsercols($id, $_) for @browsers; + sayusagecol($id); + say ''; +} +say ''; +say ''; sub paddedver { # normalised version number comparable as string (cmp) - shift =~ /^(\d*)(.*)/; - return sprintf('%02d', $1) . $2; + $_[0] =~ m/(?:.*-|^)(\d*)(.*)/; + # matched (major)(.minor) of last value in range (a-B) + return sprintf('%03d', length $1 ? $1 : 999) . $2; } sub showversions { - my @span = ($_[0], @_>1 ? $_[-1] : ()); - for (@span) { - s/^\./0./; - s/x$/.*/; - } + # 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); } @@ -178,18 +483,46 @@ sub showversions {
-
supported - prefixed - partial - external (js/plugin) - missing + supported + annotated + partial + optional + missing + unknown + prefixed
+

<: if ($usage) { :> + Usage percentage: + 0 - + .01 - + 1-9 - + 10 - + 20 - + majority +<: } else { :> + + + + + +
previous versioncurrentupcoming (within months)future (within a year)
+<: } :>

+
+ + +