X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4b698185e79d32f285b9ea98ddec108448625121..ffe0197700e02f9aaf7c36a377e82a2cc325db93:/keyboard/altgr/index.inc.pl

diff --git a/keyboard/altgr/index.inc.pl b/keyboard/altgr/index.inc.pl
index d6ddd1d..b864e13 100644
--- a/keyboard/altgr/index.inc.pl
+++ b/keyboard/altgr/index.inc.pl
@@ -8,7 +8,7 @@ my %cat = (
 	latin   => [qw( ipa-ucl olpc boyeg drix )],
 	science => [qw( symbolics apl spacecadet )],
 	graph => [qw( unigraph emojiworks )],
-	extra => [qw( msx-graph p8scii zoo )],
+	extra => [qw( msx-graph c64 atari p8scii zoo )],
 );
 
 for my $name (map {@{$_}} values %cat) {
@@ -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}{''} };
 	}