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