keyboard/altgr: omit unaltered keys
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 19 Dec 2023 18:33:19 +0000 (19:33 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Wed, 20 Dec 2023 00:27:29 +0000 (01:27 +0100)
keyboard/altgr/groups.inc.pl
keyboard/altgr/ukext.eng.inc.pl
keyboard/altgr/windows.eng.inc.pl

index 0017f500f126ac71eb04f35aeba2dc31455cd2f1..92cbb0305dc28e810d7f8fe26746786339a4b551 100644 (file)
@@ -28,7 +28,6 @@ my %g; # present group classes
        },
        key => \%rows,
        flag => {
-               g1 => ['unaltered', "same results as without modifier"],
                g2 => ['accented', "decomposes to the original letter with a combining accent"],
                g4 => ['similar', "transliterates (mostly) into the unmodified letter"],
                g5 => ['latin', "a different (accented) latin letter"],
index 29702ec64b32f9da08c60431fab9807fe48c9ec5..a6fe865c43f2ee5fbe4f228c35255c70447575be 100644 (file)
@@ -85,8 +85,8 @@ our %rows = (
        'v' => '“',
        'B' => '’',
        'b' => '”',
-       'N' => 'N',
-       'n' => 'n',
+       #'N'=> 'N',
+       #'n'=> 'n',
        'M' => 'º',
        'm' => 'µ',
        '<' => '×',
index 3b68cf74ce666879915315106b59fd6f080980b9..993ea3329c8a7c91bb9bace54fd250b54dbf421e 100644 (file)
@@ -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.',