From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 27 Apr 2017 15:42:30 +0000 (+0200)
Subject: browser: prefer last stable release in versions row
X-Git-Tag: v1.10~48
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/658d36cc0380a3dea388d98111a3ad6ef0ba5379?hp=2ce75f053f97e81228960b6323b6b7bb230799df

browser: prefer last stable release in versions row
---

diff --git a/browser.plp b/browser.plp
index 8ff9886..b06d8e9 100644
--- a/browser.plp
+++ b/browser.plp
@@ -237,16 +237,16 @@ print '<thead>', $header;
 print "\n<tr>";
 for my $browser (@browsers) {
 	for (@{ $versions{$browser} }) {
-		my $lastver = $_->[-1];
-		my $release = $caniuse->{agents}->{$browser}->{verrelease}->{$lastver};
-		my $future = defined $release;
+		my $lastver = first {
+			!defined $caniuse->{agents}->{$browser}->{verrelease}->{$_} # stable
+		} reverse @{$_};
 		printf('<td title="%s"%s>%s',
 			join(' ',
 				sprintf('%.1f%%', sum(@{ $canihas->{$browser} }{@$_}) * $usagepct),
 				'version ' . showversions(@{$_}, undef),
-				$future ? '(development)' : (),
+				$_->[-1] eq $lastver ? () : '(development)',
 			),
-			$future && ' class="ex"',
+			!defined $lastver && ' class="ex"',
 			showversions($lastver),
 		);
 	}