5 use Shiar_Sheet::KeyboardChars 'kbchars';
26 +e 🦣Elder_Elephant_or_mammoth
40 I 🐿chIpmunk_or_squIrrel
49 +K 🐼fake_Koala_face_(panda)
75 +R 🐹Rodent_hamster_face
88 v 🦇Vampire_in_bat_form
116 +> 🦝raccoon_trash_Panda
124 s/.\K/\n/, y/_/ / for values %rows;
129 my $groups = kbchars(\%rows);
131 while (my ($k, $c) = each %rows) {
133 $groups->{def}{''}{$k} = (
134 $c =~ /\p{In=1.1}/ ? 'g2' :
135 $c =~ /\p{In=6.0}/ ? 'g3' :
136 $c =~ /\p{In=8.0}/ ? 'g4' :
137 $c =~ /\p{In=10.0}/ ? 'g5' :
138 $c =~ /\p{In=10.0}/ ? 'g6' :
146 title => 'Unicode animals',
147 category => 'specialized',
149 "Collecting all emoji animals as of Unicode 11.0",
150 "with English mnemonics as AltGr mode.",
151 'Because who needs <a href="/keyboard/altgr">letters</a>',
152 'or <a href="/keyboard/altgr/emojiworks">other emoji</a>',
153 'when you have direct access to all these critters and creatures.',
157 g3 => ['initial' => 'initial emoji in Unicode 6.0'],
158 g4 => ['8.0' => 'added in Unicode 7 or 8 (2015)'],
159 g5 => ['10.0' => 'added in Unicode 9 or 10 (2017)'],
160 g7 => ['later' => 'Unicode 11.0 or above'],