From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 15 Dec 2023 22:48:14 +0000 (+0100)
Subject: keyboard/altgr: omit empty digits row on windows altgr
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/c0ca5fd2ce5aaae5170e553b50a8e54e58368845

keyboard/altgr: omit empty digits row on windows altgr
---

diff --git a/Shiar_Sheet/Keyboard.pm b/Shiar_Sheet/Keyboard.pm
index 3b72576..d4f78c8 100644
--- 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 9abad16..69430f6 100644
--- 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-',
 }