X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bfdd522492dbe05861569104e131fd8c1d3cad61..e23bdedbbacbada904520b4d2a90d13f3dd5179d:/browser.plp

diff --git a/browser.plp b/browser.plp
index 02e7e0b..aaafa03 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>';
@@ -326,10 +329,11 @@ sub paddedver {
 
 sub showversions {
 	my @span = ($_[0], @_>1 ? $_[-1] : ());
+	s/-.*// for $span[0];
 	for (@span) {
 		s/^\./0./;
 		s/x$/.*/;
-		s/-.*//;
+		s/.*-//;
 	}
 	return join('‒', @span);
 }