X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bfdd522492dbe05861569104e131fd8c1d3cad61..5c6226f7284e7b0ce87825f4a90d083d03f94388:/browser.plp diff --git a/browser.plp b/browser.plp index 02e7e0b..da50b2d 100644 --- a/browser.plp +++ b/browser.plp @@ -6,8 +6,10 @@ use List::Util qw(sum max first); Html({ title => 'browser compatibility cheat sheet', version => 'v1.0', - description => - "caniuse.", + 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 @@ -66,8 +68,7 @@ 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 <<'';

Alternate rendition of Fyrd's when can I use... page @@ -77,7 +78,7 @@ given ($get{usage} // 'wm') { when (!$_) { # none } - when (!/^\w+$/) { + when (!/^[a-z][\w-]+$/) { printf "

Invalid browser usage data request: %s", 'identifier must be alphanumeric name or 0'; } @@ -86,16 +87,20 @@ given ($get{usage} // 'wm') { break; }; $usage = $_; - my $ref = $canihas->{-source} || 'unknown'; - $ref = sprintf '%s', $_, $ref for $canihas->{-url} || (); + my $ref = $canihas->{-title} || 'unknown'; + $ref = sprintf '%s', $_, $ref + for $canihas->{-site} || $canihas->{-source} || (); $ref .= " $_" for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; } -if ($usage) { - # first() does not work inside given >:( +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) { 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}; @@ -104,7 +109,28 @@ if ($usage) { $row->{$next} += $usage; $row->{$version} = 0; # balance browser total } + + # 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; } :>.

@@ -128,7 +154,7 @@ my $usagemax = (max(map { ref $_ eq 'HASH' && sum(values %$_) } values %$canihas my $usagepct = 1; # score multiplier for 0..100 result # normalise usage percentage to only include shown browsers -$usagepct = 100 / featurescore({ # yes for every possible version +$usagepct = 100.01 / featurescore({ # yes for every possible version map { $_ => { map {$_ => 'y'} @{$versions{$_}} } } keys %versions }); @@ -148,7 +174,7 @@ my $header = join('', $_, @{ $caniuse->{agents}->{$_} }{'prefix', 'type'}, ), join(' ', - sprintf('%.1f%%', sum(values %{ $canihas->{$_} }) * $usagepct), + sprintf('%.1f%%', $canihas->{$_}->{-total} * $usagepct), $name, ), do { @@ -164,16 +190,19 @@ print '', $header; print "\n"; print '' x 3; for my $browser (@browsers) { - printf('%s', - join(' ', - sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct), - "version $_", - ), - (map { - defined $_ && !$_ && ' class="ex"' - } $caniuse->{agents}->{$browser}->{verrelease}->{$_}), - showversions($_), - ) for @{ $versions{$browser} }; + for my $_ (@{ $versions{$browser} }) { + my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$_}; + my $future = defined $release; + printf('%s', + join(' ', + sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct), + $future ? 'development' : (), + "version $_", + ), + $future && ' class="ex"', + showversions($_), + ); + } } print '' x 1; say ''; @@ -233,10 +262,14 @@ sub saytitlecol { } $row->{title}; print '
'; s/\.?$/./, print "

$_

" for map { ref $_ ? @$_ : $_ || () } - Entity($row->{description}), formathtml($row->{notes}); # sic + Entity($row->{description}), + map { s/\s*\n/\n
/g; $_ } $row->{notes}; printf 'Resources: %s.', join(', ', map { sprintf '%s', EscapeHTML($_->{url}), $_->{title} } @$_) for grep { @$_ } $row->{links} // (); + printf '
Parent feature: %s.', join(', ', map { + sprintf '%s', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title} + } $_) for $row->{parent} || (); print '
'; } @@ -255,15 +288,29 @@ 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 $compare = ( + !defined $ver ? undef : # last column if nameless + ref $data ne 'HASH' ? '' : # unclassified if no support hash + $data->{$ver} // $prev # known or inherit from predecessor + // (grep { defined } @{$data}{ @{ $versions{$browser} } })[0] + ~~ 'n' && 'n' # first known version is unsupported + || 'u' # unsure + ); + unless (!defined $prev or $prev ~~ $compare) { my $usage = sum(map { $canihas->{$browser}->{$_} } @span); printf '%s', join(' ', - X => $CSTATS{ ref $data eq 'HASH' && $data->{$prev} || 'u' }, + X => $CSTATS{$prev}, !$usage ? ('p0') : ('p', sprintf('p%01d', $usage * ($usagepct - .0001) / 10), sprintf('p%02d', $usage * ($usagepct - .0001)), @@ -275,14 +322,14 @@ sub saybrowsercols { map { ref $_ eq 'CODE' ? $_->($browser) : $_ } map { $DSTATS{$_} // () } map { split / /, $_ } - ref $data eq 'HASH' && $data->{$prev} || 'u' + $prev )), showversions(@span), undef $prev; @span = (); } push @span, $ver; - $prev = $ver; + $prev = $compare; } } @@ -307,16 +354,6 @@ for my $id (sort { say ''; say ''; -sub formathtml { - my $ref = defined wantarray ? [@_] : \@_; - for (@$ref) { - s/& (?!\w)/&/gx; - s/< \s/</gx; - s/\n\K\n/
/g; - } - return @$ref; -} - sub paddedver { # normalised version number comparable as string (cmp) shift =~ /(?:.*-|^)(\d*)(.*)/; @@ -326,10 +363,11 @@ sub paddedver { sub showversions { my @span = ($_[0], @_>1 ? $_[-1] : ()); + s/-.*// for $span[0]; for (@span) { s/^\./0./; s/x$/.*/; - s/-.*//; + s/.*-//; } return join('‒', @span); }