X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/249651154697809d1e13e52b6a895eb59a3748bd..HEAD:/browser.plp diff --git a/browser.plp b/browser.plp index 8b51522..6d75d4a 100644 --- a/browser.plp +++ b/browser.plp @@ -1,11 +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.1', + version => '1.6', description => [ "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)", "comparing support and usage share for all popular browser versions.", @@ -21,14 +20,7 @@ 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 $caniuse = Data('data/browser/support'); my %CSTATS = ( 'n' => 'l1', @@ -37,35 +29,37 @@ 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 j' => 'l2', - 'j' => 'l2', 'p' => 'l2', - 'p p' => 'l2', 'u' => 'l0', + 'u d' => 'l2', ); 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', - (map "-$_-", $caniuse->{agents}->{$_[0]}->{prefix} // ()), + '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' => .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 @@ -78,34 +72,37 @@ 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} = [@{ $row->{versions} }]; } -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} // .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", $! || $@; + $canihas = eval { Data("data/browser/usage-$_") } or do { + 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} || (); + $ref =~ s/(?=>)/ title="updated $_"/ for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; } @@ -191,13 +188,17 @@ $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 -}); +# 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 ''; # should match first thead row @@ -230,18 +231,20 @@ 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 { + $caniuse->{agents}->{$browser}->{version_list}->{$_}->{release_date} # 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; @@ -431,19 +465,16 @@ say '
%s', join(' ', - sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct), - $future ? 'development' : (), - 'version ' . 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}), ), - $future && ' class="ex"', - showversions($lastver), + !defined $lastver && ' class="ex"', + showversions($lastver // $span->[0]), ); } } @@ -268,8 +271,12 @@ sub featurescore { if ($canihas) { while (my ($browser, $versions) = each %$row) { ref $versions eq 'HASH' or next; - while (my ($version, $_) = each %$versions) { - $rank += ($canihas->{$browser}->{$version} || .001) * $PSTATS{$_}; + 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; @@ -296,15 +303,26 @@ sub featurescore { 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}; @@ -327,11 +345,16 @@ sub saytitlecol { 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 { - 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 '
'; } @@ -342,7 +365,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; } @@ -354,9 +377,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} } }; } @@ -365,13 +388,18 @@ 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 $usage = sum(@{ $canihas->{$browser} }{ map { @{$_} } @span }); + 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 + } + my $usage = sum(@{ $canihas->{$browser} }{@vercover}); # strip #\d note references from support class my @notes; @@ -379,14 +407,18 @@ 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) : $_ } - 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); + $prev .= ' #' if @notes and $prev =~ /^y/; printf('%s', join(' ', X => $CSTATS{$prev}, @@ -394,29 +426,31 @@ 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 && 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; } } sub sayusagecol { my ($id) = @_; - print '', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct; + print '', int $caniuse->{data}->{$id}->{usage}; } 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('%03d', length $1 ? $1 : 999) . $2; } 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); } @@ -453,6 +484,7 @@ sub showversions {

supported + annotated partial optional missing @@ -490,5 +522,7 @@ sub showversions { - +