keyboard/altgr/windows.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 require './keyboard/altgr/groups.inc.pl';
   5 Shiar_Sheet::KeyboardChars->import('kbchars');
   6
   7 my @az = ('A'..'Z', 'a'..'z');
   8 my @letters = qw(
   9         Á B ¢ Ð É F G H Í J Œ Ø µ Ñ Ó Ö Ä ® § Þ Ú V Å X Ü Æ
  10         á b © ð é f g h í j œ ø µ ñ ó ö ä ® ß þ ú v å x ü æ
  11 );
  12 my %xkb = (
  13         '@' => "\N{COMBINING DOUBLE ACUTE ACCENT}",
  14         '#' => "\N{COMBINING MACRON}",
  15         '%' => "\N{COMBINING CEDILLA}",
  16         '&' => "\N{COMBINING HORN}",
  17         '*' => "\N{COMBINING OGONEK}",
  18         '(' => "\N{COMBINING BREVE}",
  19         ')' => "\N{COMBINING RING ABOVE}",
  20         '_' => "\N{COMBINING DOT BELOW}",
  21         '>' => "\N{COMBINING CARON}",
  22         '.' => "\N{COMBINING DOT ABOVE}",
  23         '?' => "\N{COMBINING HOOK ABOVE}",
  24 );
  25
  26 my %rows = (
  27         '~' => "\N{COMBINING TILDE}",
  28         '`' => "\N{COMBINING GRAVE ACCENT}",
  29         '!' => '¹',
  30         '1' => '¡',
  31         '2' => '²',
  32         '3' => '³',
  33         '$' => '£',
  34         '4' => '¤',
  35         '5' => '€',
  36         '^' => "\N{COMBINING CIRCUMFLEX ACCENT}",
  37         '6' => '¼',
  38         '7' => '½',
  39         '8' => '¾',
  40         '9' => '‘',
  41         '0' => '’',
  42         '-' => '¥',
  43         '+' => '÷',
  44         '=' => '×',
  45         '{' => '“',
  46         '}' => '”',
  47         '[' => '«',
  48         ']' => '»',
  49         ':' => '°',
  50         ';' => '¶',
  51         "'" => "\N{COMBINING ACUTE ACCENT}",
  52         '"' => "\N{COMBINING DIAERESIS}",
  53         '<' => 'Ç',
  54         ',' => 'ç',
  55         '/' => '¿',
  56         '|' => '¦',
  57         '\\'=> '¬',
  58         %xkb,
  59         map {
  60                 ($az[$_] eq $letters[$_]) ? () :
  61                 ($az[$_] => $letters[$_])
  62         } 0 .. $#az
  63 );
  64
  65 my $groups = kbchars(\%rows);
  66 $groups->{def}{''}{$_} .= ' ext' for keys %xkb;
  67 $groups->{flag}{ext} = ['xkb', 'unofficial extensions added in Linux (Gnome, KDE)'];
  68
  69 +{
  70         %{$groups},
  71         title => 'Windows AltGr',
  72         version => '1.4',
  73         intro => join("\n",
  74                 'Resulting <a href="/unicode">selection</a> of <a href="/charset">Unicode</a> characters',
  75                 'while pressing the AltGr modifier',
  76                 'with the Windows US international layout.',
  77                 'Macs have <a href="/keyboard/altgr/macos">option</a> options instead.',
  78         ),
  79         description => [
  80                 "Windows US international keyboard layout table",
  81                 "with the AltGr modifier key.",
  82         ],
  83         image => 'keyboard/altgr/ku2971b-usint.jpg',
  84 }