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 HORN}",
15 '*' => "\N{COMBINING OGONEK}",
16 '(' => "\N{COMBINING BREVE}",
17 ')' => "\N{COMBINING RING ABOVE}",
18 '_' => "\N{COMBINING DOT BELOW}",
19 '>' => "\N{COMBINING CARON}",
20 '.' => "\N{COMBINING DOT ABOVE}",
21 '?' => "\N{COMBINING HOOK ABOVE}",
23 '%' => "\N{COMBINING CEDILLA}",
24 # 2.38~16 (2023-01-13)
26 # 2.39~101 (2023-03-17)
31 # 2.39~96 (2023-03-21)
33 # 2.40~122 (2023-06-11)
35 'X' => "\N{COMBINING SHORT SOLIDUS OVERLAY}", # dead_stroke (slash ø, bar ʉ, stroke ł)
39 '~' => "\N{COMBINING TILDE}",
40 '`' => "\N{COMBINING GRAVE ACCENT}",
48 '^' => "\N{COMBINING CIRCUMFLEX ACCENT}",
63 "'" => "\N{COMBINING ACUTE ACCENT}",
64 '"' => "\N{COMBINING DIAERESIS}",
71 ($az[$_] eq $letters[$_]) ? () :
72 ($az[$_] => $letters[$_])
77 my $groups = kbchars(\%rows);
78 $groups->{def}{''}{$_}[0] .= ' ext' for keys %xkb;
79 $groups->{flag}{ext} = ['xkb', 'unofficial extensions added in Linux (Gnome, KDE)'];
83 title => 'Windows AltGr',
84 category => '1/latin/windows/xorg',
87 'Resulting <a href="/unicode">selection</a> of <a href="/charset">Unicode</a> characters',
88 'while pressing the AltGr modifier',
89 'with the Windows US international layout.',
90 'Macs have <a href="/keyboard/altgr/macos">option</a> options instead.',
93 "Windows US international keyboard layout table",
94 "with the AltGr modifier key.",
96 image => 'data/keyboard/thumb/ku2971b-usint.jpg',
97 imagealt => 'AltGr on a KeyboardCompany KU2971B with USA International keycaps',