keyboard/altgr/index: enlarge header font only if appropriate

[sheet.git] / keyboard / altgr / index.inc.plp

diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index c47bfeb1c67d19dc53b03ce713f58dc610c69bae..172d93105074b8d7528fff8a95346c6c9281ee7a 100644 (file)
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -32,6 +32,14 @@ Html({
 .keys.big.cmp tbody {
        font-size: 150%;
 }
+@media (max-width: 48em) {
+       .keys.big.cmp tbody {
+               font-size: 100%;
+       }
+       .keys.big.cmp tbody a {
+               white-space: normal;
+       }
+}
 .keys.cmp tbody {
        display: table-row-group;
 }
@@ -147,7 +155,8 @@ for my $inc (sort {
                my $keys = Shiar_Sheet::Keyboard->new($table);
                for my $mode ($keys->{mode} ? sort keys %{ $keys->{mode} } : '') {
                        my %inventory;
-                       $inventory{ s/ (?!ext).*//r }++ for values %{ $keys->{def}{$mode} };
+                       $inventory{$_}++ for grep { /^g[2-9]/ } map { s/ (?!ext).*//r }
+                               values %{ $keys->{def}{$mode} };
                        print '<span class=graph>';
                        print "<label>$_</label>" for $keys->{key}{$mode} =~ s/\s.*//r || ();
                        for my $g (sort keys %inventory) {
@@ -163,7 +172,8 @@ for my $inc (sort {
                print "\t<td class=ni>";
                print join ' ', map { $caticon{$_} // () } split m{/}, $keys->{category};
                say '';
-               $keys->print_key('', $_, $keys->{def}{''}{$_} // 'ni') for @sample;
+               $keys->print_key('', $_, ($keys->{def}{''}{$_} // 'ni') =~ s/ mode\S*//r)
+                       for @sample;
                say '</tr>';
        }
 }