keyboard/altgr/windows.eng.inc.pl

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