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: move ?keys code and styling from common include
[sheet.git]
/
Shiar_Sheet
/
Keyboard.pm
diff --git
a/Shiar_Sheet/Keyboard.pm
b/Shiar_Sheet/Keyboard.pm
index 3b725764bd5e22c1ea6fe515fbbec51d68a7780e..d4f78c8e7a86125a0c0e525bdd62ac8a928b841e 100644
(file)
--- a/
Shiar_Sheet/Keyboard.pm
+++ b/
Shiar_Sheet/Keyboard.pm
@@
-167,8
+167,8
@@
print_row:
for my $submode (@moderows ? @moderows : '') {
my $mode = $basemode . $submode;
for my $submode (@moderows ? @moderows : '') {
my $mode = $basemode . $submode;
- my @caserows = $mode =~ s/(\d+)(?:-(\d
+
))?$//
- ? (map {$_ - 1} split //, $row == 0
&& $2 ||
$1) # user override
+ my @caserows = $mode =~ s/(\d+)(?:-(\d
*
))?$//
+ ? (map {$_ - 1} split //, $row == 0
? $2 // $1 :
$1) # user override
: @$defrows; # default
my $modekeys = $self->{def}{$mode};
: @$defrows; # default
my $modekeys = $self->{def}{$mode};