countries: change antarctica class to .an
[sheet.git] / browser.plp
index 7e44f18..5380cef 100644 (file)
@@ -1,46 +1,26 @@
 <(common.inc.plp)><:
 use 5.010;
 use utf8;
-use List::Util qw(sum max);
+use List::Util qw(sum max first);
 
 Html({
        title => 'browser compatibility cheat sheet',
        version => 'v1.0',
-       description =>
-               "caniuse.",
-       keywords => [qw'html css browser feature'],
+       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
+               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'],
 });
 
-:>
-<h1>Browser compatibility</h1>
+say "<h1>Browser compatibility</h1>\n";
 
-<p id="intro">Alternate view of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page<:
-my ($canihas, $usage);
-given ($get{usage} // 'wm') {
-       when (!$_) {
-               # none
-       }
-       when (!/^\w+$/) {
-               printf "<p>Invalid browser usage data request: <em>%s</em>",
-                       'identifier must be alphanumeric name or <q>0</q>';
-       }
-       $canihas = do "browser-usage-$_.inc.pl" or do {
-               printf "<p>Browser usage data not found: <em>%s</em>", $! || $@;
-               break;
-       };
-       $usage = $_;
-       my $ref = $canihas->{-source} || 'unknown';
-       $ref = sprintf '<a href="%s">%s</a>', $_, $ref for $canihas->{-url} || ();
-       $ref .= " $_" for $canihas->{-date} || ();
-       print "\nwith $ref browser usage statistics";
-}
-:>.
-</p>
-
-<div id="browser">
-<:
 my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
 $_->{verrelease} = {
        # mark last two (future) versions as unreleased, ensure current isn't
@@ -59,13 +39,27 @@ my %CSTATS = (
        'p p' => 'l2',
        'u'   => 'l0',
 );
+my %DSTATS = (
+       u => 'unknown',
+       n => 'unsupported',
+       p => 'plugin required',
+       j => 'javascript required',
+       a => 'partial',
+       y => 'supported',
+       x => sub {
+               join(' ',
+                       'requires prefix',
+                       (map "-$_-", $caniuse->{agents}->{$_[0]}->{prefix} // ()),
+               );
+       },
+);
 my %CSTATUS = (
        unoff => 'l1', # unofficial
        wd    => 'l3', # draft
        cr    => 'l4', # candidate
        pr    => 'l4', # proposed
        rec   => 'l5', # recommendation
-       other => 'l5', # non-w3
+       other => 'l2', # non-w3
        ietf  => 'l5', # standard
 );
 my %versions;
@@ -74,9 +68,93 @@ if (my ($somerow) = values %{ $caniuse->{data} }) {
                $versions{$browser} = [ sort { paddedver($a) cmp paddedver($b) } keys %$row ];
        }
 }
-my @browsers = grep { $versions{$_} }
-       qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini);
+my @browsers = keys %versions;
+
+print <<'';
+<p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
 
+my ($canihas, $usage, $minusage);
+given ($get{usage} // 'wm') {
+       when (!$_) {
+               # none
+       }
+       when (!/^[a-z][\w-]+$/) {
+               printf "<p>Invalid browser usage data request: <em>%s</em>",
+                       'identifier must be alphanumeric name or <q>0</q>';
+       }
+       $canihas = do "browser-usage-$_.inc.pl" or do {
+               printf "<p>Browser usage data not found: <em>%s</em>", $! || $@;
+               break;
+       };
+       $usage = $_;
+       my $ref = $canihas->{-title} || 'unknown';
+       $ref = sprintf '<a href="%s">%s</a>', $_, $ref
+               for $canihas->{-site} || $canihas->{-source} || ();
+       $ref .= " $_" for $canihas->{-date} || ();
+       print "\nwith $ref browser usage statistics";
+}
+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;
+               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 = $get{threshold} // .5) {
+                       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}
+       } @browsers;
+}
+else {
+       # order browser columns by name grouped by engine
+       @browsers = sort {
+               $caniuse->{agents}->{$b}->{prefix} cmp
+               $caniuse->{agents}->{$a}->{prefix}
+                       ||
+               $a cmp $b
+       } @browsers;
+}
+:>.
+</p>
+
+<:
 $canihas ||= {
        map {
                $_ => +{
@@ -91,22 +169,31 @@ $canihas ||= {
                }
        } @browsers
 }; # fallback hash based on release semantics
-my $scorediv = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas) // 1) / 100;
+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
+});
 
 print '<table class="mapped">';
-print '<col>' x 3;
+print '<col span="3">';  # should match first thead row
 printf '<colgroup span="%d">', scalar @{ $versions{$_} } for @browsers;
-print "\n";
+say '</colgroup><col>';
 
 my $header = join('',
        '<tr>',
        '<th colspan="3">feature',
        (map {
                my $name = $caniuse->{agents}->{$_}->{browser};
-               sprintf('<th colspan="%d" title="%s">%s',
+               sprintf('<th colspan="%d" class="%s" title="%s">%s',
                        scalar @{ $versions{$_} },
+                       join(' ', map {"b-a-$_"} grep {$_}
+                               $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'},
+                       ),
                        join(' ',
-                               sprintf('%.1f%%', sum(values %{ $canihas->{$_} })),
+                               sprintf('%.1f%%', $canihas->{$_}->{-total} * $usagepct),
                                $name,
                        ),
                        do {
@@ -122,27 +209,35 @@ print '<thead>', $header;
 print "\n<tr>";
 print '<td>' x 3;
 for my $browser (@browsers) {
-       printf('<td title="%.1f%%"%s>%s',
-               $canihas->{$browser}->{$_},
-               (map {
-                       defined $_ && !$_ && ' class="ex"'
-               } $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
-               showversions($_),
-       ) for @{ $versions{$browser} };
+       for (@{ $versions{$browser} }) {
+               my $lastver = $_->[-1];
+               my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver};
+               my $future = defined $release;
+               printf('<td title="%s"%s>%s',
+                       join(' ',
+                               sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
+                               $future ? 'development' : (),
+                               'version ' . join(', ', @{$_}),
+                       ),
+                       $future && ' class="ex"',
+                       showversions($lastver),
+               );
+       }
 }
 print '<td>' x 1;
-print "</thead>\n";
+say '</thead>';
+say '<tfoot>', $header, '</tfoot>';
 
 sub featurescore {
        # relative amount of support for given feature
-       state $statspts = { y=>10, 'y x'=>10, a=>5, 'a x'=>5, j=>2, 'p j'=>2, p=>1 };
+       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} * $statspts->{$_};
+                                       $rank += ($canihas->{$browser}->{$version} || .001) * $statspts->{$_};
                                }
                        }
                        return $rank;
@@ -172,7 +267,8 @@ sub saytitlecol {
 
        for ($row->{categories}) {
                my $cell = $_ ? lc $_->[0] : '-';
-               print '<th>', $cell;
+               $cell =~ s/ api$//;  # trim unessential fluff in 'js api'
+               printf '<th title="%s">%s', join(' + ', @$_), $cell;
        }
 
        print '<td>', map {
@@ -181,15 +277,19 @@ sub saytitlecol {
                        sprintf("try { %s; return false } catch(err) { return true }",
                                "document.getElementById('$id').classList.toggle('target')",
                        ),
-                       $_,
+                       Entity($_),
                );
        } $row->{title};
        print '<div class=aside>';
        s/\.?$/./, print "<p>$_</p>" for map { ref $_ ? @$_ : $_ || () }
-               $row->{description}, $row->{notes};
-       printf 'Resources: %s.', join(', ',
-               map { qq(<a href="$_->{url}">$_->{title}</a>) } @$_
-       ) for grep { @$_ } $row->{links} // ();
+               Entity($row->{description}),
+               map { s/\s*\n/\n<br>/g; $_ } $row->{notes};
+       printf 'Resources: %s.', join(', ', map {
+               sprintf '<a href="%s">%s</a>', EscapeHTML($_->{url}), $_->{title}
+       } @$_) for grep { @$_ } $row->{links} // ();
+       printf '<br>Parent feature: %s.', join(', ', map {
+               sprintf '<a href="%s">%s</a>', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title}
+       } $_) for $row->{parent} || ();
        print '</div>';
 }
 
@@ -208,40 +308,57 @@ sub saystatuscol {
 sub saybrowsercols {
        my ($id, $browser) = @_;
        my $data = $caniuse->{data}->{$id}->{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
+               };
+       }
 
        my ($prev, @span);
        for my $ver (@{ $versions{$browser} }, undef) {
-               unless (!defined $prev
-               or ref $data eq 'HASH' && $data->{$prev} ~~ $data->{$ver}) {
-                       my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
-                       printf '<td class="%s" colspan="%d" title="%.1f%%">%s',
+               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
+                       || 'u'                       # unsure
+               );
+               unless (!defined $prev or $prev ~~ $compare) {
+                       my $usage = sum(@{ $canihas->{$browser} }{ map { @{$_} } @span });
+                       printf '<td class="%s" colspan="%d" title="%s">%s',
                                join(' ',
-                                       X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' },
+                                       X => $CSTATS{$prev},
                                        !$usage ? ('p0') : ('p',
-                                               sprintf('p%01d', $usage / 10),
-                                               sprintf('p%02d', $usage),
+                                               sprintf('p%01d', $usage * ($usagepct - .0001) / 10),
+                                               sprintf('p%02d', $usage * ($usagepct - .0001)),
                                        ),
-                                       sprintf('pp%02d', $usage / $scorediv),
+                                       sprintf('pp%02d', $usage / $usagemax),
                                ),
                                scalar @span,
-                               $usage,
-                               showversions(@span),
+                               sprintf('%.1f%% %s', $usage * $usagepct, join(', ',
+                                       map { ref $_ eq 'CODE' ? $_->($browser) : $_ }
+                                       map { $DSTATS{$_} // () }
+                                       map { split / /, $_ }
+                                       $prev
+                               )),
+                               showversions($span[0]->[0], @span > 1 ? ($span[-1]->[-1]) : ()),
                        undef $prev;
                        @span = ();
                }
-               push @span, $ver;
-               $prev = $ver;
+               push @span, $ver && [ grep { $data->{ $_ } eq $data->{ $ver->[-1] } } @{$ver} ];
+               $prev = $compare;
        }
 }
 
 sub sayusagecol {
        my ($id) = @_;
-       state $maxscore = featurescore({  # yes for every possible version
-               map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions
-       });
-       print '<td>', int featurescore($caniuse->{data}->{$id}->{stats}) / $maxscore * 100;
+       print '<td>', int featurescore($caniuse->{data}->{$id}->{stats}) * $usagepct;
 }
 
+say '<tbody>';
 for my $id (sort {
            featurescore($caniuse->{data}->{$b}->{stats})
        <=> featurescore($caniuse->{data}->{$a}->{stats})
@@ -254,26 +371,28 @@ for my $id (sort {
        sayusagecol($id);
        say '</tr>';
 }
-print '<tfoot>', $header;
-print '</table>';
+say '</tbody>';
+say '</table>';
 
 sub paddedver {
        # normalised version number comparable as string (cmp)
-       shift =~ /^(\d*)(.*)/;
+       shift =~ /(?:.*-|^)(\d*)(.*)/;
+       # matched (major)(.minor) of last value in range (a-B)
        return sprintf('%02d', $1 || 0) . $2;
 }
 
 sub showversions {
        my @span = ($_[0], @_>1 ? $_[-1] : ());
+       s/-.*// for $span[0];
        for (@span) {
                s/^\./0./;
                s/x$/.*/;
+               s/.*-//;
        }
        return join('‒', @span);
 }
 
-:></div>
-
+:>
 <hr>
 
 <div class="legend">
@@ -283,7 +402,7 @@ sub showversions {
        <td class="X l2">external (js/plugin)
        <td class="X l1">missing
        <td class="X l0">unknown
-       <td class="X l0 ex">prefixed
+       <td class="X ex">prefixed
        </table>
 
        <p><: if ($usage) { :>
@@ -309,10 +428,12 @@ sub showversions {
                        <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
                <li><strong>usage</strong> source is
                        <:= !defined $get{usage} && 'default ' :><:= defined $usage ? "<em>$usage</em>" : 'not included (<em>0</em>)' :>
+               <li>usage <strong>threshold</strong> is
+                       <:= defined $get{threshold} && 'changed to ' :><em><:= $minusage :>%</em>
                </ul>
        </div>
 </div>
 
-<script src="/searchlocal.js"></script>
-<script> prependsearch(document.getElementById('intro')) </script>
+<script type="text/javascript" src="/searchlocal.js"></script>
+<script type="text/javascript"> prependsearch(document.getElementById('intro')) </script>