keyboard/altgr: emojiworks collection of emoji

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

diff --git a/keyboard/altgr/olpc.eng.inc.pl b/keyboard/altgr/olpc.eng.inc.pl
index 3884b9aaafcd0759aba2fc2482ab45a53a31e0c3..3d72e36306565aa8355b3fd7b52c6a3637a1891e 100644 (file)
--- a/keyboard/altgr/olpc.eng.inc.pl
+++ b/keyboard/altgr/olpc.eng.inc.pl
@@ -1,6 +1,7 @@
 use utf8;
 use strict;
 use warnings;
+no warnings 'qw';
 use Shiar_Sheet::KeyboardChars 'kbchars';
 
 my %rows = (
@@ -63,21 +64,17 @@ my %shift = (
        qw( { [  } ]  " '  | \  < ,  > .  ? /  ` 3  ~ = ),
        (map {uc, lc} qw[ r t y u i o p  h j  m  ]),
 );
+$rows{$_} = $rows{ $shift{$_} } for keys %shift; # alias shifted
 
 my $groups = kbchars(\%rows);
 $groups->{flag}{ext} = ['alias', 'identical results from unshifted key'];
-while (my ($alias, $target) = each %shift) {
-       # copy alias to shifted
-       $groups->{key}{$alias} = $groups->{key}{$target};
-       $groups->{def}{''}{$alias} = $groups->{def}{''}{$target}.' ext';
-}
-$groups->{def}{''}{$_} =~ s/g7/g4/ for qw( ! < > ? ); # similar punctuation
+$groups->{def}{''}{$_} .= ' ext' for keys %shift; # mark aliases
 
 +{
        %{ $groups },
        version => '1.0',
        title => 'OLPC',
-       category => 'legacy/latin',
+       category => 'legacy/latin/xorg',
        intro => join("\n",
                "International US English developed for the OLPC project,",
                'providing mostly European',