keyboard/altgr/eurkey: greek uppercase
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 14 Mar 2024 23:03:42 +0000 (00:03 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 8 Apr 2024 15:39:26 +0000 (17:39 +0200)
Overlooked from less explicit reference sheet.

keyboard/altgr/eurkey.eng.inc.pl

index ac7902795de48922be003eac420985a783d431b1..456ac15e9fcce059a69fabc9a9c4265b2a2333fd 100644 (file)
@@ -135,7 +135,9 @@ my %rows = (
 
                # aliases
                'v' => \'mb',
+               'V' => \'mB',
                'u' => \'mq',
+               'U' => \'mQ',
 
                # suþscript
                '1' => '¹',
@@ -273,6 +275,9 @@ my %rows = (
        },
 );
 
+# uppercase greek
+$rows{m}{uc $_} //= uc $rows{m}{$_} for keys %{ $rows{m} };
+
 +{
        %{ kbmodes(\%rows) },
        mode => {
@@ -281,7 +286,7 @@ my %rows = (
                'M' => '√ maths prefix ⌥M',
                $presymbol => "$rows{''}{$presymbol} symbol prefix ⌥$presymbol",
        },
-       version => '1.1',
+       version => '1.2',
        title => 'EurKEY',
        category => 'latin/thirdparty/xorg',
        intro => join("\n",