git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr/index: label modes by description character.
[sheet.git]
/
keyboard
/
altgr
/
index.inc.pl
diff --git
a/keyboard/altgr/index.inc.pl
b/keyboard/altgr/index.inc.pl
index 2308e146248a2c61b3b284d6606dc5549b7549f4..5994d9f11812a597a911d6d5d28d7c3bff1cf5f2 100644
(file)
--- a/
keyboard/altgr/index.inc.pl
+++ b/
keyboard/altgr/index.inc.pl
@@
-15,17
+15,16
@@
for my $name (map {@{$_}} values %cat) {
my %row = %{$keys}{qw( title category flag mode image imagealt )};
$cat{$name} = \%row;
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
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}{''} };
}
/^\+./ 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} };
}
$row{inventory}{$mode}{$_}++ for grep { /^g[2-9]/ } map { s/ (?!ext).*//r } map {$_->[0]}
values %{ $keys->{def}{$mode} };
}