browser: minor stylistic improvements

diff --git a/browser.plp b/browser.plp
index e65395ea1cba69b0c20a047ade609b17756be26e..55d5e6512d83caea12aba21cfa7d44dc6a55f10c 100644 (file)
--- a/browser.plp
+++ b/browser.plp
@@ -5,13 +5,13 @@ use List::Util qw(sum max first);
 
 Html({
        title => 'browser compatibility cheat sheet',
 
 Html({
        title => 'browser compatibility cheat sheet',

-       version => 'v1.0',
+       version => 'v1.1',

        description => [
                "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)",
                "comparing support and usage share for all popular browser versions.",
        ],
        keywords => [qw'
        description => [
                "Compatibility table of new web features (HTML5, CSS3, SVG, Javascript)",
                "comparing support and usage share for all popular browser versions.",
        ],
        keywords => [qw'

-               web browser support compatibility usage available feature
+               web browser support compatibility usage matrix available feature

                html html5 css css3 svg javascript js dom mobile
                ie internet explorer firefox chrome safari webkit opera
        '],
                html html5 css css3 svg javascript js dom mobile
                ie internet explorer firefox chrome safari webkit opera
        '],


@@ -82,7 +82,7 @@ print <<'';
 <p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
 
 my ($canihas, $usage);
 <p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
 
 my ($canihas, $usage);

-my $minusage = $get{threshold} // .5;
+my $minusage = $get{threshold} // .7;

 given ($get{usage} // 'wm') {
        when (!$_) {
                # none
 given ($get{usage} // 'wm') {
        when (!$_) {
                # none


@@ -199,7 +199,7 @@ say '</colgroup><col>';
 
 my $header = join('',
        '<tr>',
 
 my $header = join('',
        '<tr>',

-       '<th colspan="3">feature',
+       '<th colspan="3" rowspan="2">feature',

        (map {
                my $name = $caniuse->{agents}->{$_}->{browser};
                sprintf('<th colspan="%d" class="%s" title="%s">%s',
        (map {
                my $name = $caniuse->{agents}->{$_}->{browser};
                sprintf('<th colspan="%d" class="%s" title="%s">%s',


@@ -212,17 +212,16 @@ my $header = join('',
                                $name,
                        ),
                        do {
                                $name,
                        ),
                        do {

-                               length $name < 3 + @{ $versions{$_} }*2 ? $name
+                               length $name <= (3 * @{ $versions{$_} }) ? $name

                                        : $caniuse->{agents}->{$_}->{abbr};
                        },
                )
        } @browsers),
                                        : $caniuse->{agents}->{$_}->{abbr};
                        },
                )
        } @browsers),

-       '<th>%',
+       '<th rowspan="2">%',

 );
 print '<thead>', $header;
 # preceding row without any colspan to work around gecko bug
 print "\n<tr>";
 );
 print '<thead>', $header;
 # preceding row without any colspan to work around gecko bug
 print "\n<tr>";

-print '<td>' x 3;

 for my $browser (@browsers) {
        for (@{ $versions{$browser} }) {
                my $lastver = $_->[-1];
 for my $browser (@browsers) {
        for (@{ $versions{$browser} }) {
                my $lastver = $_->[-1];


@@ -239,7 +238,6 @@ for my $browser (@browsers) {
                );
        }
 }
                );
        }
 }

-print '<td>' x 1;

 say '</thead>';
 say '<tfoot>', $header;
 {
 say '</thead>';
 say '<tfoot>', $header;
 {


@@ -252,9 +250,7 @@ say '<tfoot>', $header;
        }
 
        print "\n", '<tr class="cat">';
        }
 
        print "\n", '<tr class="cat">';

-       print '<td>' x 3;

        printf '<th colspan="%d">%s', $familycount{$_}, $_ for @families;
        printf '<th colspan="%d">%s', $familycount{$_}, $_ for @families;

-       print '<td>';

 }
 say '</tfoot>';
 
 }
 say '</tfoot>';