From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 10 Nov 2010 01:34:56 +0000 (+0100)
Subject: browser: version number formatting
X-Git-Tag: v1.4~113
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/97ea66556aefeaefd2ca20280de2ae8f728922e8

browser: version number formatting

Emulate human-prettifying done by caniuse javascript.
---

diff --git a/browser.plp b/browser.plp
index 151daeb..bbf2d6b 100644
--- a/browser.plp
+++ b/browser.plp
@@ -129,7 +129,7 @@ for my $id (sort {
 				printf '<td class="%s" colspan="%d">%s',
 					$CSTATS{ $data->{$browser}->{$prev} },
 					scalar @span,
-					join('‒', $span[0], @span > 1 ? $span[-1] : ());
+					showversions(\@span),
 				undef $prev;
 				@span = ();
 			}
@@ -150,6 +150,16 @@ sub paddedver {
 	return sprintf('%02d', $1) . $2;
 }
 
+sub showversions {
+	my ($span) = @_;
+	splice @$span, 1, -1;
+	for (@$span) {
+		s/^\./0./;
+		s/x$/.*/;
+	}
+	return join('‒', @$span);
+}
+
 :>
 <hr>