From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 5 Dec 2010 23:44:10 +0000 (+0100)
Subject: browser: future version numbers marked .ex
X-Git-Tag: v1.4~69
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/bac45e06a93a0aa666c6dfa3e312684f161e3952

browser: future version numbers marked .ex
---

diff --git a/browser.plp b/browser.plp
index 2acb027..d6291cb 100644
--- a/browser.plp
+++ b/browser.plp
@@ -42,6 +42,10 @@ given ($get{usage} // 'wm') {
 <div id="browser">
 <:
 my $caniuse = do 'browser-support.inc.pl' or die $! || $@;
+$_->{verrelease} = {
+	# mark last two (future) versions as unreleased, ensure current isn't
+	map { $_->[-1] => 0, $_->[-2] => 0, $_->[-3] => undef } $_->{versions}
+} for values %{ $caniuse->{agents} };
 
 my %CSTATS = (
 	'n'   => 'l1',
@@ -113,8 +117,12 @@ print '<thead>', $header;
 print "\n<tr>";
 print '<td>' x 3;
 for my $browser (@browsers) {
-	printf('<td title="%.1f%%">%s',
-		$canihas->{$browser}->{$_}, showversions($_),
+	printf('<td title="%.1f%%"%s>%s',
+		$canihas->{$browser}->{$_},
+		(map {
+			defined $_ && !$_ && ' class="ex"'
+		} $caniuse->{agents}->{$browser}->{verrelease}->{$_}),
+		showversions($_),
 	) for @{ $versions{$browser} };
 }
 print '<td>' x 1;