browser: abbreviate agent name depending on version columns

diff --git a/browser.plp b/browser.plp
index 73db2a9e1c06b2863e2ef2facb1eea4886dccc9e..0531e6d1f86c8d1ca1ad937526c23d20491b45fe 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -102,12 +102,16 @@ my $header = join('',
        '<tr>',
        '<th colspan="3">feature',
        (map {
        '<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{$_} },
                        scalar @{ $versions{$_} },

-                       sum(values %{ $canihas->{$_} }),
+                       join(' ',
+                               sprintf('%.1f%%', sum(values %{ $canihas->{$_} })),
+                               $name,
+                       ),

                        do {
                        do {

-                               my $name = $caniuse->{agents}->{$_}->{browser};
-                               length $name < 16 ? $name : $caniuse->{agents}->{$_}->{abbr};
+                               length $name < 3 + @{ $versions{$_} }*2 ? $name
+                                       : $caniuse->{agents}->{$_}->{abbr};

                        },
                )
        } @browsers),
                        },
                )
        } @browsers),