From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 20 May 2024 22:45:41 +0000 (+0200)
Subject: keyboard/altgr/index: move ctrl rows to distinct inventory mode
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain?ds=inline

keyboard/altgr/index: move ctrl rows to distinct inventory mode

Prevent inflation of emojiworks, similar to meta rows elsewhere.
---

diff --git a/keyboard/altgr/index.inc.pl b/keyboard/altgr/index.inc.pl
index 1f77fa7..b864e13 100644
--- a/keyboard/altgr/index.inc.pl
+++ b/keyboard/altgr/index.inc.pl
@@ -18,10 +18,10 @@ for my $name (map {@{$_}} values %cat) {
 
 	$row{mode} //= {'' => undef};
 
-	if (($keys->{moderows} // '') =~ /^\d* [45] \d{2,}/x) {
-		# move root +meta keys to distinct mode
+	if (($keys->{moderows} // '') =~ /^\d* [3-9] \d{2,}/x) {
+		# move root ^ctrl or +meta keys to distinct mode
 		$row{mode}{"\e"} = '+';
-		/^\+./ and $keys->{def}{"\e"}{$_} = delete $keys->{def}{''}{$_}
+		/^[+^]./ and $keys->{def}{"\e"}{$_} = delete $keys->{def}{''}{$_}
 			for keys %{ $keys->{def}{''} };
 	}