X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/bfdd522492dbe05861569104e131fd8c1d3cad61..1c2fd8f8d8c72f190c55283d7c4199754a163d06:/browser.plp?ds=inline
diff --git a/browser.plp b/browser.plp
index 02e7e0b..fbbddde 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
@@ -164,16 +166,19 @@ print '', $header;
print "\n";
print ' ';
@@ -233,10 +238,14 @@ sub saytitlecol {
} $row->{title};
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 '
$_
" for map { ref $_ ? @$_ : $_ || () } - Entity($row->{description}), formathtml($row->{notes}); # sic + Entity($row->{description}), + map { s/\s*\n/\n