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) {
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>';
}
}