Replace definition lookup by (assumed) same text in available data.
my %row = %{$keys}{qw( title category flag mode image imagealt )};
$cat{$name} = \%row;
- $keys->{mode} //= {'' => undef};
+ $row{mode} //= {'' => undef};
if ($keys->{def}{''}{'+a'}) {
# move root +meta keys to distinct mode
- $keys->{mode}{"\e"} = '+';
+ $row{mode}{"\e"} = '+';
/^\+./ and $keys->{def}{"\e"}{$_} = delete $keys->{def}{''}{$_}
for keys %{ $keys->{def}{''} };
}
- for my $mode (keys %{ $keys->{mode} }) {
- $row{def}{''}{$_} = $keys->{def}{''}{$_} for $mode || ();
+ for my $mode (keys %{ $row{mode} }) {
$row{inventory}{$mode}{$_}++ for grep { /^g[2-9]/ } map { s/ (?!ext).*//r } map {$_->[0]}
values %{ $keys->{def}{$mode} };
}
Html({
title => "altgr keyboard cheat sheets",
- version => '1.2',
+ version => '1.3',
description => [
"Overview of alternate keyboard modes,",
"offering extended Unicode characters if a modifier key",
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->{def}{''}{$mode}[1] || ();
+ printf "<label>%s</label>", m/^(\S*)/ for $mode && $table->{mode}{$mode} || ();
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, $_,
%{ kbmodes(\%rows) },
mode => {
'' => 'altgr-shifted ⌥',
- '*' => 'greek mode ⌥*',
+ '*' => 'μ greek prefix ⌥*',
},
version => '1.0', # upstream v2.0 2021/04/12
title => $dweur ? 'dWEURak' : 'Western European',