From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 5 Dec 2010 23:59:04 +0000 (+0100)
Subject: browser: abbreviate agent name depending on version columns
X-Git-Tag: v1.4~66
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/8448a08533738473a2f9a31537909fb6c3cf1a50

browser: abbreviate agent name depending on version columns
---

diff --git a/browser.plp b/browser.plp
index 73db2a9..0531e6d 100644
--- a/browser.plp
+++ b/browser.plp
@@ -102,12 +102,16 @@ my $header = join('',
 	'<tr>',
 	'<th colspan="3">feature',
 	(map {
-		sprintf('<th colspan="%d" title="%.1f%%">%s',
+		my $name = $caniuse->{agents}->{$_}->{browser};
+		sprintf('<th colspan="%d" title="%s">%s',
 			scalar @{ $versions{$_} },
-			sum(values %{ $canihas->{$_} }),
+			join(' ',
+				sprintf('%.1f%%', sum(values %{ $canihas->{$_} })),
+				$name,
+			),
 			do {
-				my $name = $caniuse->{agents}->{$_}->{browser};
-				length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr};
+				length $name < 3 + @{ $versions{$_} }*2 ? $name
+					: $caniuse->{agents}->{$_}->{abbr};
 			},
 		)
 	} @browsers),