X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7d058f41993c955a19f1123b76938e292eee319e..7affe2df7fee946f49e1561a5f58240bd0309b4f:/browser.plp diff --git a/browser.plp b/browser.plp index 19011ab..8c6b5ed 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 @@ -67,7 +69,7 @@ if (my ($somerow) = values %{ $caniuse->{data} }) { } } my @browsers = grep { $versions{$_} } - qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini); + qw(trident ie gecko firefox webkit_saf safari ios_saf webkit_chr chrome android presto opera op_mob op_mini); print <<'';

Alternate rendition of Fyrd's when can I use... page @@ -77,7 +79,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,8 +88,9 @@ 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"; } @@ -99,9 +102,10 @@ if ($usage) { $row->{$_} //= undef for @$verlist; # ensure stable keys during iteration while (my ($version, $usage) = each %$row) { next if defined $supported{$version}; - $_ = paddedver($_) for $version; - my $next = first { paddedver($_) ge $version } @$verlist; # or next + 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 } } } @@ -163,16 +167,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 ''; @@ -232,10 +239,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 '
'; } @@ -254,15 +265,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)), @@ -274,14 +299,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; } } @@ -306,16 +331,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*)(.*)/; @@ -325,10 +340,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); }