X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/dae492a5488a4b54635d1c8de597162e649fd123..7affe2df7fee946f49e1561a5f58240bd0309b4f:/browser.plp
diff --git a/browser.plp b/browser.plp
index aaafa03..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";
}
@@ -236,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 '
';
}
@@ -258,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)),
@@ -278,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;
}
}
@@ -310,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*)(.*)/;
|