5 use Shiar_Sheet::KeyboardChars 'kbchars';
30 'k' => '♪', # 95 "little musical note"
31 'v' => '☎', # 96 "tiny telephone"
32 ',' => '🛧', # 97 airplane (✈ up)
33 'm' => '🚗', # 98 "subcompact car" (left)
34 'n' => '🍷', # 99 U̝ thing: tuning fork ⑂? glass 🍷? insert ⁁? alchemy ⨿?
35 'b' => '🯈', # 9A "small person" 🕺 (running left)
42 # characters in european font
43 #à°ç§éùè¨ÄÖÜäöüßÆØÅæøåɤ
46 ! 1 @ 2 # 3 $ 4 % 5 ^ 6
47 & 7 * 8 ( 9 ) 0 _ - + ^
54 my $groups = kbchars(\%rows);
56 while (my ($k, $c) = each %rows) {
57 $groups->{def}{''}{$k}[0] = (
59 $c =~ /\p{In=1.1}/ ? 'g2' :
60 $c =~ /\p{In=4.0}/ ? 'g3' :
61 $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g5' : # Age=V13.0
69 title => 'Epson PX-20 graphics',
70 category => 'legacy/graph',
73 'Unicode glyphs similar to the <em>graph</em> mode of the 1981',
74 'Epson HC-20 and later (PX-8 Geneva, PX-4) laptops.',
75 'See also <a href="/keyboard/altgr/msx-graph">MSX</a>,',
76 '<a href="/keyboard/altgr/atari">Atari</a>,',
77 '<a href="/keyboard/altgr/c64">C-64</a>, and',
78 '<a href="/keyboard/altgr/unigraph">modern Unicode</a>.',
81 g2 => ['standard' => 'original Unicode 1993'],
82 g3 => ['extended' => 'Unicode 4.0'],
83 g5 => ['legacy' => 'exceptional <em>symbols for legacy computing</em> in Unicode since <abbr title="Unicode 13.0">2020</abbr>'],