4 use Shiar_Sheet::KeyboardChars 'kbchars';
6 my @az = ('A'..'Z', 'a'..'z');
8 Á B ¢ Ð É F G H Í J Œ Ø µ Ñ Ó Ö Ä ® § Þ Ú V Å X Ü Æ
9 á b © ð é f g h í j œ ø µ ñ ó ö ä ® ß þ ú v å x ü æ
12 '@' => "\N{COMBINING DOUBLE ACUTE ACCENT}",
13 '#' => "\N{COMBINING MACRON}",
14 '%' => "\N{COMBINING CEDILLA}",
15 '&' => "\N{COMBINING HORN}",
16 '*' => "\N{COMBINING OGONEK}",
17 '(' => "\N{COMBINING BREVE}",
18 ')' => "\N{COMBINING RING ABOVE}",
19 '_' => "\N{COMBINING DOT BELOW}",
20 '>' => "\N{COMBINING CARON}",
21 '.' => "\N{COMBINING DOT ABOVE}",
22 '?' => "\N{COMBINING HOOK ABOVE}",
26 '~' => "\N{COMBINING TILDE}",
27 '`' => "\N{COMBINING GRAVE ACCENT}",
35 '^' => "\N{COMBINING CIRCUMFLEX ACCENT}",
50 "'" => "\N{COMBINING ACUTE ACCENT}",
51 '"' => "\N{COMBINING DIAERESIS}",
59 ($az[$_] eq $letters[$_]) ? () :
60 ($az[$_] => $letters[$_])
64 my $groups = kbchars(\%rows);
65 $groups->{def}{''}{$_} .= ' ext' for keys %xkb;
66 $groups->{flag}{ext} = ['xkb', 'unofficial extensions added in Linux (Gnome, KDE)'];
70 title => 'Windows AltGr',
73 'Resulting <a href="/unicode">selection</a> of <a href="/charset">Unicode</a> characters',
74 'while pressing the AltGr modifier',
75 'with the Windows US international layout.',
76 'Macs have <a href="/keyboard/altgr/macos">option</a> options instead.',
79 "Windows US international keyboard layout table",
80 "with the AltGr modifier key.",
82 image => 'data/keyboard/thumb/ku2971b-usint.jpg',
83 imagealt => 'AltGr on a KeyboardCompany KU2971B with USA International keycaps',