';
+ print '';
print " | $_" for @sample;
say ' | ';
}
@@ -127,7 +147,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 '';
print "" for $keys->{key}{$mode} =~ s/\s.*//r || ();
for my $g (sort keys %inventory) {
@@ -140,6 +161,9 @@ for my $inc (sort {
}
say '';
}
+ print "\t | ";
+ print join ' ', map { $caticon{$_} // () } split m{/}, $keys->{category};
+ say '';
$keys->print_key('', $_, $keys->{def}{''}{$_} // 'ni') for @sample;
say ' |
';
}