X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c7df83034e6c7443c0f7ed602dfa1a31714b4235..2ae4ccbb6ac3ce310890beef55fda11f670772bb:/browser.plp diff --git a/browser.plp b/browser.plp index b82f5fb..3f7b6f8 100644 --- a/browser.plp +++ b/browser.plp @@ -9,7 +9,7 @@ Html({ description => "caniuse.", keywords => [qw'html css browser feature'], - stylesheet => [qw'circus dark mono red'], + stylesheet => [qw'circus dark mono red light'], data => ['browser-support.inc.pl'], }); @@ -24,22 +24,23 @@ browser usage statistics.

my $caniuse = do 'browser-support.inc.pl' or die $! || $@; my %CSTATS = ( - n => 'di-b', - y => 'di-aa', - a => 'di-d', - 'a x' => 'di-d', - j => 'di-prop', - p => 'di-prop', - 'p j' => 'di-prop', - 'y x' => 'di-a', + 'n' => 'l0', + 'y' => 'l6', + 'y x' => 'l5', + 'a' => 'l4', + 'a x' => 'l4', + 'p j' => 'l2', + 'j' => 'l2', + 'p' => 'l2', + 'u' => 'l9', ); my %CSTATUS = ( - unoff => 'di-rare', # unofficial - wd => 'di-b', # draft - pr => 'di-prop', # proposed - cr => 'di-d', # candidate - rec => 'di-a', # recommendation - ietf => 'di-aa', # standard + unoff => 'l0', # unofficial + wd => 'l4', # draft + cr => 'l5', # candidate + pr => 'l5', # proposed + rec => 'l6', # recommendation + ietf => 'l6', # standard ); my @browsers = qw(trident gecko webkit_saf webkit_chr presto); my %versions; @@ -145,8 +146,12 @@ for my $id (sort { my $usage = sum(map { $canihas->{$browser}->{$_} } @span); printf '%s', join(' ', - $CSTATS{ $data->{$browser}->{$prev} }, - sprintf('opacity%.0f', $usage / $scorediv), + X => $CSTATS{ $data->{$browser}->{$prev} }, + !$usage ? ('p0') : ('p', + sprintf('p%01d', $usage / 10), + sprintf('p%02d', $usage), + ), + sprintf('pp%02d', $usage / $scorediv), ), scalar @span, $usage, @@ -182,30 +187,27 @@ sub showversions { } :> -
-
supported - prefixed - partial - external (js/plugin) - missing + supported + prefixed + partial + external (js/plugin) + missing
+
+ Usage percentage: + 0 - + .01 - + 1-9 - + 10 - + 20 - + majority +
+