keyboard/altgr: scalar references indicate aliases

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

diff --git a/keyboard/altgr/drix.eng.inc.pl b/keyboard/altgr/drix.eng.inc.pl
index cdb4f0539769fd06e6448b16d358af185b09b861..a63a5a0d2a33c982a4451daebe9199e68f088f0f 100644 (file)
--- a/keyboard/altgr/drix.eng.inc.pl
+++ b/keyboard/altgr/drix.eng.inc.pl
@@ -31,7 +31,7 @@ my %rows = (
        ']' => "}",
        '^' => "\N{COMBINING MACRON}",
        '_' => "\xB1",
-       '`' => "\xA3",
+       '`' => \'l',
        'A' => "\x{2190}",
        'a' => "\xE6",
        'B' => "\x{20bf}",
@@ -41,7 +41,7 @@ my %rows = (
        'd' => "\x{394}",
        'D' => "\x{2192}",
        'e' => "\x{20AC}",
-       'E' => "\x{20AC}",
+       'E' => \'e',
        'f' => "\x{192}",
        'F' => "\x{191}",
        #'g' => "g",
@@ -81,7 +81,7 @@ my %rows = (
        'x' => "\xD7",
        'X' => "\xF7",
        'y' => "\xA5",
-       'Y' => "\xA5",
+       'Y' => \'y',
        'z' => "\xA7",
        'Z' => "\xB6",
        '{' => "\xAB",
@@ -103,14 +103,11 @@ my %rows = (
        ';' => "\xA1",     # unshifted ! at m
 );
 
-my $groups = kbchars(\%rows);
-$groups->{def}{''}{$_} .= ' ext' for qw( ` E Y );
-
 +{
-       %{$groups},
+       %{ kbchars(\%rows) },
        version => '1.0',
        title => 'Drix',
-       category => 'latin',
+       category => 'latin/xorg',
        intro => join("\n",
                "European Latin layout version 3.1 providing",
                '<a href="/unicode">Unicode</a> characters while pressing AltGr,',