X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/ec2eef747aa43c0e485a0068ee74b9928e1f97f9..f1cfafd56c8fc6be24d8691daf40a9fbff767b17:/keyboard/altgr/index.inc.plp
diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index c47bfeb..9e4d6b5 100644
--- 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;
}
@@ -126,7 +134,8 @@ if (@sample) {
my %idx = map {s/\Q.inc.pl\E$//; ($_ => eval{ Data($_) })} @incs;
my $most = max(map { scalar keys %{$_->{def}{''}} } values %idx);
for my $inc (sort {
- $idx{$a}{category} cmp $idx{$b}{category} || $a cmp $b
+ ($idx{$a}{category} // 0) cmp ($idx{$b}{category} // 0)
+ || $a cmp $b
} keys %idx) {
print @sample ? '
' : '';
printf '', $inc =~ s/\.eng$//r;
@@ -147,9 +156,10 @@ 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 '';
- print "" for $keys->{key}{$mode} =~ s/\s.*//r || ();
+ printf '', s/\s.*//r for $keys->{key}{$mode} || ();
for my $g (sort keys %inventory) {
printf ' %s',
$g, $_/$most*100, $_,
@@ -161,9 +171,10 @@ for my $inc (sort {
say '';
}
print "\t";
- print join ' ', map { $caticon{$_} // () } split m{/}, $keys->{category};
+ 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 ' | |
';
}
}