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[$_] eq $letters[$_]) ? () :
  11         ($az[$_] => $letters[$_])
  12 } 0 .. $#az;
  13
  14 +{
  15         %{ do 'keyboard/altgr/groups.inc.pl' },
  16         title => 'altgr',
  17         version => '1.3',
  18         intro => join("\n",
  19                 'Special <a href="/unicode">characters</a> returned with the AltGr modifier',
  20                 'for the Windows US international layout.',
  21                 'Similar to <a href="/keyboard/altgr/macos">Apple</a> options.',
  22         ),
  23         description => [
  24                 "Windows US international keyboard layout table",
  25                 "with the AltGr modifier key.",
  26         ],
  27         image => 'keyboard/altgr/ibmmkey.jpg',
  28         moderows => '21-',
  29 }