keyboard/altgr: omit empty digits row on windows altgr

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;
-                       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};
 

diff --git a/altgr.eng.inc.pl b/altgr.eng.inc.pl
index 9abad16413a3711cef58579a70cc64d1d4cdc087..69430f65c7e6a835e828074349f13dea8cb725cd 100644 (file)
--- a/altgr.eng.inc.pl
+++ b/altgr.eng.inc.pl
@@ -23,4 +23,5 @@ our %rows = map {
                "Windows US international keyboard layout table",
                "with the AltGr modifier key.",
        ],
+       moderows => '12-',
 }