5 use Shiar_Sheet::KeyboardChars 'kbchars';
58 my $groups = kbchars(\%rows);
60 while (my ($k, $c) = each %rows) {
61 # override letter-based classes by unicode versions
62 $groups->{def}{''}{$k}[0] = (
63 $c =~ /\p{General_Category=Modifier_Symbol}/ ? 'g9' :
64 $c =~ /\p{In=1.1}/ ? 'g2' :
65 $c =~ /\p{In=5.2}/ ? 'g3' :
66 $c =~ /\p{In=6.0}/ ? 'g4' :
67 $c =~ /\p{In=7.0}/ ? 'g5' :
68 $c =~ /\p{In=8.0}/ ? 'g7' :
69 'g0' # unexpectedly newer
75 title => 'EmojiWorks',
77 category => 'legacy/emoji',
78 tableclass => 'keys big',
80 "Commercial product from 2015 (no longer available)",
81 "with <em>emoji</em> (Alt) buttons",
82 "to insert various Unicode emoticons and other symbols.",
85 "Legacy EmojiWorks keyboard layout",
86 "for typing a selection of Unicode emoji symbols.",
90 image => 'data/keyboard/thumb/emojiworks.jpg',
92 g2 => ['legacy' => "Already in Unicode 1.1 released in 1993 as text symbols"],
93 g3 => ['predated' => "Updates up to Unicode 5.2 between, retroactively emojified"],
94 g4 => ['first' => "Initial emoji support with Unicode 6.0 in 2010"],
95 g5 => ['update' => "Extensions in Unicode 6.1 and 7.0 (2014)"],
96 g7 => ['latest' => "Added in Unicode 8.0, in 2015 when these characters were selected"],
97 g9 => ['modifier' => "Fitzpatrick skin colour selection marks in Unicode 8.0"],