X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3beb5afe2b512a6210caeb8744bc3f91e29c4e66..f49c3d7ee38d51e8056652cb3ee378a7b6d4768e:/browser.plp?ds=inline diff --git a/browser.plp b/browser.plp index 2ba6e01..d8ebf86 100644 --- a/browser.plp +++ b/browser.plp @@ -5,23 +5,23 @@ use List::Util qw(sum max first); Html({ title => 'browser compatibility cheat sheet', - version => 'v1.0', + version => 'v1.2', 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 + web browser support compatibility usage matrix 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'], + data => ['data/browser/support.inc.pl'], }); say "
Alternate rendition of Fyrd's when can I use... page -my ($canihas, $usage, $minusage); +my ($canihas, $usage); +my $minusage = $get{threshold} // .7; given ($get{usage} // 'wm') { when (!$_) { # none } - when (!/^[a-z][\w-]+$/) { + 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
';
}
- $canihas = do "browser-usage-$_.inc.pl" or do {
+ $canihas = do "data/browser/usage-$_.inc.pl" or do {
printf "
Browser usage data not found: %s", $! || $@; break; }; @@ -101,12 +108,18 @@ given ($get{usage} // 'wm') { $ref .= " $_" for $canihas->{-date} || (); print "\nwith $ref browser usage statistics"; } + +my @browsers; 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; + if ($minusage and sum(values %$row) < $minusage) { + delete $versions{$browser}; + next; + } my %supported = map { $_ => 1 } @$verlist; # cascade unknown versions @@ -120,7 +133,7 @@ if ($usage) { # first() does not work inside given >:( } # build row list for each version - if ($minusage = $get{threshold} // .5) { + if ($minusage) { my @vershown; # $verlist replacement my ($rowusage, @verrow) = (0); # replacement row tracking for (@$verlist) { @@ -148,16 +161,17 @@ if ($usage) { # first() does not work inside given >:( $engineuse{ $caniuse->{agents}->{$a}->{prefix} } || $canihas->{$b}->{-total} <=> $canihas->{$a}->{-total} - } @browsers; + } keys %versions; } else { # order browser columns by name grouped by engine + @{$_} = map { [$_] } @{$_} for values %versions; @browsers = sort { $caniuse->{agents}->{$b}->{prefix} cmp $caniuse->{agents}->{$a}->{prefix} || $a cmp $b - } @browsers; + } keys %versions; } :>.
@@ -192,7 +206,7 @@ say '$1
}gx;
+ s{ \[ ([^]]*) \] \( ([^)]*) \) }{$1}gx;
+ }
+ return @html;
+}
+
sub saytitlecol {
my ($id) = @_;
my $row = $caniuse->{data}->{$id};
@@ -289,9 +325,13 @@ sub saytitlecol {
);
} $row->{title};
print '$_
" for map { ref $_ ? @$_ : $_ || () } - Entity($row->{description}), - map { s/\s*\n/\n$_
" + 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 '