keyboard/altgr: proper function to convert char maps

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

diff --git a/keyboard/altgr/eurkey.eng.inc.pl b/keyboard/altgr/eurkey.eng.inc.pl
index cc820e74d2aef1eadbcb9e527cc55c0a584efcbe..b2a98cbc0f422076954109a1891e7a73b4e000a2 100644 (file)
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -1,6 +1,7 @@
 use utf8;
 use strict;
 use warnings;
+do './keyboard/altgr/groups.inc.pl';
 
 my $V = v1.3;
 
@@ -26,7 +27,7 @@ my %arrows = (
        '+' => '⇔',
 );
 
-our %rows = (
+my %rows = (
        '1' => '¡',
        '!' => '¹',
        '2' => 'ª',
@@ -265,7 +266,7 @@ our %rows = (
        (map { ($presymbol.$_ => $arrows{$_}) } keys %arrows),
 );
 
-my $groups = do 'keyboard/altgr/groups.inc.pl';
+my $groups = kbchars(\%rows);
 $groups->{mode} = {
        ''  => 'option-shifted ⌥',
        'm' => 'Ω greek prefix ⌥m',