my @sample = split /(?<!\+)/, $get{sample} // 'asSci1!+1';
require Shiar_Sheet::Keyboard;
+Shiar_Sheet::Keyboard->VERSION(3.00);
use List::Util qw( uniq max sum );
my %caticon = (
print '</a>', "\n\t";
for my $mode ($table->{mode} ? sort keys %{ $table->{mode} } : '') {
print '<span class=graph>';
- printf '<label>%s</label>', s/\s.*//r for $table->{key}{$mode} || ();
+ printf '<label>%s</label>', s/\s.*//r for $table->{def}{''}{$mode}[1] || ();
for my $g (sort keys %{ $table->{inventory}{$mode} }) {
printf '<span class="%s" style="width:%.0f%%" title="%3$d %4$s"> %s</span>',
$g, $_/$most*100, $_,
my $keydata = Data("$dirbase/$inc.eng");
Shiar_Sheet::Keyboard->new($keydata)
}) {
- $keys->print_key('', $_, ($keys->{def}{''}{$_} // 'ni') =~ s/ mode\S*//r)
+ $keys->print_key('', $_, ($keys->{def}{''}{$_} // ['ni']) =~ s/ mode\S*//r)
for @sample;
}
say '</tr>';