From 2b01d5bea012a8731dbb0c239532a4320e7d5d78 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 9 Dec 2010 01:51:35 +0100
Subject: [PATCH] browser: explain unreleased version status in title

---
 browser.plp | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/browser.plp b/browser.plp
index 02e7e0b..b2a7867 100644
--- a/browser.plp
+++ b/browser.plp
@@ -164,16 +164,19 @@ print '<thead>', $header;
 print "\n<tr>";
 print '<td>' x 3;
 for my $browser (@browsers) {
-	printf('<td title="%s"%s>%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('<td title="%s"%s>%s',
+			join(' ',
+				sprintf('%.1f%%', $canihas->{$browser}->{$_} * $usagepct),
+				$future ? 'development' : (),
+				"version $_",
+			),
+			$future && ' class="ex"',
+			showversions($_),
+		);
+	}
 }
 print '<td>' x 1;
 say '</thead>';
-- 
2.30.0