altgr.eng.inc.pl

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