X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d78fc84f0565d86f4f98ca65fb45da4a20ad3e74..140051e24ff5a74421e8b437cdc12ca8570995cd:/browser.plp diff --git a/browser.plp b/browser.plp index 421d9ef..930c435 100644 --- a/browser.plp +++ b/browser.plp @@ -4,7 +4,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch'; Html({ title => 'browser compatibility cheat sheet', - version => '1.4', + version => '1.5', description => [ "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)", "comparing support and usage share for all popular browser versions.", @@ -21,13 +21,6 @@ Html({ say "

Browser compatibility

\n"; my $caniuse = do 'data/browser/support.inc.pl' or die $@ || $!; -$_->{verrelease} = { - # 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', @@ -36,11 +29,14 @@ my %CSTATS = ( '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', @@ -53,7 +49,7 @@ my %DSTATS = ( join(' ', 'with prefix', map {"-$_-"} - ($caniuse->{agents}->{$_[0]}->{prefix_exceptions} // {})->{$_[1]} + $caniuse->{agents}->{$_[0]}->{version_list}->{$_[1]}->{prefix} // $caniuse->{agents}->{$_[0]}->{prefix} // (), ); }, @@ -83,8 +79,11 @@ while (my ($browser, $row) = each %{ $caniuse->{agents} }) { ]; } -print <<''; -

Alternate rendition of Fyrd's when can I use... page +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; @@ -106,7 +105,7 @@ given ($get{usage} // 'wm') { my $ref = $canihas->{-title} || 'unknown'; $ref = showlink($ref, $_) for $canihas->{-site} || $canihas->{-source} || (); - $ref .= " $_" for $canihas->{-date} || (); + $ref =~ s/(?=>)/ title="updated $_"/ for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; } @@ -195,7 +194,10 @@ $canihas ||= { # score multiplier for percentage of all browser versions my $usagepct = 99.99 / sum( - map { $_->{-total} // values %{$_} } values %{$canihas} + map { $_->{-total} // values %{$_} } + map { $canihas->{$_} } + grep { !/^-/ } + keys %{$canihas} ); $_->{usage} = featurescore($_->{stats}) * $usagepct @@ -234,16 +236,18 @@ print "\n"; for my $browser (@browsers) { for my $span (@{ $versions{$browser} }) { my $lastver = first { - !defined $caniuse->{agents}->{$browser}->{verrelease}->{$_} # stable + $caniuse->{agents}->{$browser}->{version_list}->{$_}->{release_date} # stable } reverse @{$span}; printf('%s', join(' ', sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{ @{$span} }) * $usagepct), 'version ' . showversions(@{$span}, undef), - $span->[-1] eq $lastver ? () : '(development)', + (map { + $_ ? sprintf('(released %d)', $_/3600/24/365.25 + 1970) : '(development)' + } $caniuse->{agents}->{$browser}->{version_list}->{$lastver}->{release_date}), ), !defined $lastver && ' class="ex"', - showversions($lastver), + showversions($lastver // $span->[0]), ); } } @@ -270,9 +274,12 @@ sub featurescore { if ($canihas) { while (my ($browser, $versions) = each %$row) { ref $versions eq 'HASH' or next; - while (my ($version, $status) = each %$versions) { + 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; @@ -304,6 +311,7 @@ sub formatnotes { 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; @@ -372,9 +380,9 @@ sub saybrowsercols { my $data = $feature->{stats}->{$browser}; if (ref $data eq 'ARRAY') { # special case for unsupported - my $release = $caniuse->{agents}->{$browser}->{verrelease}; $data = { - map { $_ => defined $release->{$_} ? 'u' : 'n' } keys %$release + map { $_ => 'n' } + keys %{ $caniuse->{agents}->{$browser}->{version_list} } }; } @@ -383,15 +391,15 @@ sub saybrowsercols { my $compare = ( !defined $ver ? undef : # last column if nameless ref $data ne 'HASH' ? '' : # unclassified if no support hash - $data->{ $ver->[-1] } // $prev # known or inherit from predecessor - // (grep { defined } @{$data}{ map { $_->[0] } @{ $versions{$browser} } })[0] - ~~ 'n' && 'n' # first known version is unsupported + (first { defined } @{$data}{ reverse @{$ver} }) # last known version + // $prev # inherit from predecessor || 'u' # unsure ); - unless (!defined $prev or $prev ~~ $compare) { - my @vercover = (map { @{$_} } @span); + if (defined $prev and not $prev ~~ $compare) { + # different columns + my @vercover = (map { @{$_} } @span); # accumulated conforming versions for ($ver ? @{$ver} : ()) { - $data->{$_} eq $data->{$vercover[-1]} or last; + last if defined $data->{$_}; # until different push @vercover, $_; # matches from next span start } my $usage = sum(@{ $canihas->{$browser} }{@vercover}); @@ -413,6 +421,7 @@ sub saybrowsercols { )); $title .= "\n$_" for notestotitle(@notes); + $prev .= ' #' if @notes and $prev =~ /^y/; printf('%s', join(' ', X => $CSTATS{$prev}, @@ -423,12 +432,16 @@ sub saybrowsercols { ), scalar @span, $title, - showversions($span[0]->[0], @span > 1 ? $span[-1]->[-1] : ()), + showversions($span[0]->[0], @span > 1 && defined $ver ? $span[-1]->[-1] : ()), ); undef $prev; @span = (); } - push @span, $ver && [ grep { $data->{ $_ } eq $data->{ $ver->[-1] } } @{$ver} ]; + if ($ver) { + my $startversion = first { defined $data->{ $ver->[$_] } } + reverse 0 .. $#{$ver}; # compare index + push @span, [ @{$ver}[ $startversion .. $#{$ver} ] ]; + } $prev = $compare; } } @@ -455,9 +468,9 @@ say ''; sub paddedver { # normalised version number comparable as string (cmp) - shift =~ /(?:.*-|^)(\d*)(.*)/; + $_[0] =~ m/(?:.*-|^)(\d*)(.*)/; # matched (major)(.minor) of last value in range (a-B) - return sprintf('%02d', $1 || 99) . $2; + return sprintf('%02d', length $1 ? $1 : 99) . $2; } sub showversions { @@ -474,6 +487,7 @@ sub showversions {

supported + annotated partial optional missing @@ -511,5 +525,7 @@ sub showversions { - +