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 => 'Windows AltGr',
  17         version => '1.3',
  18         intro => join("\n",
  19                 'Resulting <a href="/unicode">selection</a> of <a href="/charset">Unicode</a> characters',
  20                 'while pressing the AltGr modifier',
  21                 'with the Windows US international layout.',
  22                 'Macs have <a href="/keyboard/altgr/macos">option</a> options instead.',
  23         ),
  24         description => [
  25                 "Windows US international keyboard layout table",
  26                 "with the AltGr modifier key.",
  27         ],
  28         image => 'keyboard/altgr/ibm-m.jpg',
  29         moderows => '21-',
  30 }