From 8448a08533738473a2f9a31537909fb6c3cf1a50 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 6 Dec 2010 00:59:04 +0100
Subject: [PATCH] browser: abbreviate agent name depending on version columns

---
 browser.plp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

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),
-- 
2.30.0