keyboard/altgr/symbolics: distinguish greek letters from symbols
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 19 Feb 2024 10:15:32 +0000 (11:15 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 29 Feb 2024 01:54:01 +0000 (02:54 +0100)
Replace unused mode g5 to split up g6.

keyboard/altgr/symbolics.eng.inc.pl

index dc6ebcda495c18aa34ca70794d9bc660ed096802..b0c3a1ebf2479a02ab4e75bece23d0e25ee51adc 100644 (file)
@@ -106,9 +106,17 @@ my %rows = (
   '|' => "\x{2309}",
 );
 
+my $groups = kbchars(\%rows);
+$groups->{flag}->{g5} = [greek =>
+       "a different greek letter not corresponding with latin transcription"
+];
+while (my ($key, $chr) = each %rows) {
+       $groups->{def}->{''}->{$key} =~ s/g6/g5/ if $chr =~ /\A\p{Greek}/;
+}
+
 +{
-       %{ kbchars(\%rows) },
-       version => '1.0',
+       %{$groups},
+       version => '1.1',
        title => 'US Symbolics',
        category => 'specialised/greek/xorg',
        intro => join("\n",