keyboard/altgr: omit unaltered keys

[sheet.git] / keyboard / altgr / windows.eng.inc.pl

diff --git a/keyboard/altgr/windows.eng.inc.pl b/keyboard/altgr/windows.eng.inc.pl
index 7ec76c0bfb4375b849d5bd000a45a35e70e4cd73..993ea3329c8a7c91bb9bace54fd250b54dbf421e 100644 (file)
--- a/keyboard/altgr/windows.eng.inc.pl
+++ b/keyboard/altgr/windows.eng.inc.pl
@@ -7,13 +7,14 @@ my @letters = qw(
        á b © ð é f g h í j œ ø µ ñ ó ö ä ® ß þ ú v å x ü æ
 );
 our %rows = map {
-       $az[$_] => $letters[$_]
+       ($az[$_] eq $letters[$_]) ? () :
+       ($az[$_] => $letters[$_])
 } 0 .. $#az;
 
 +{
        %{ do 'keyboard/altgr/groups.inc.pl' },
        title => 'altgr',
-       version => '1.2',
+       version => '1.3',
        intro => join("\n",
                'Special <a href="/unicode">characters</a> returned with the AltGr modifier',
                'for the Windows US international layout.',
@@ -24,5 +25,5 @@ our %rows = map {
                "with the AltGr modifier key.",
        ],
        image => 'keyboard/altgr/ibmmkey.jpg',
-       moderows => '12-',
+       moderows => '21-',
 }