keyboard/altgr/windows.eng.inc.pl

   1 use utf8;
   2 use strict;
   3 use warnings;
   4 my @az = ('A'..'Z', 'a'..'z');
   5 my @letters = qw(
   6         Á B ¢ Ð É F G H Í J Œ Ø µ Ñ Ó Ö Ä ® § Þ Ú V Å X Ü Æ
   7         á b © ð é f g h í j œ ø µ ñ ó ö ä ® ß þ ú v å x ü æ
   8 );
   9 our %rows = map {
  10         $az[$_] => $letters[$_]
  11 } 0 .. $#az;
  12
  13 +{
  14         %{ do 'keyboard/altgr/groups.inc.pl' },
  15         title => 'altgr',
  16         version => '1.2',
  17         intro => join("\n",
  18                 'Special <a href="/unicode">characters</a> returned with the AltGr modifier',
  19                 'for the Windows US international layout.',
  20                 'Similar to <a href="/keyboard/altgr/macos">Apple</a> options.',
  21         ),
  22         description => [
  23                 "Windows US international keyboard layout table",
  24                 "with the AltGr modifier key.",
  25         ],
  26         moderows => '12-',
  27 }