use utf8;
+use strict;
+use warnings;
our %rows = (
- '¬' => '◌',
- '`' => '◌',
'~' => '¦',
'!' => '¡',
'1' => '¹',
- '"' => '½',
- '2' => '◌',
- '£' => '⅓',
+ '@' => '½', # uk "
+ '2' => "\N{COMBINING DIAERESIS}",
+ '#' => '⅓', # uk £
'3' => '³',
'$' => '¼',
'4' => '€',
'%' => '⅜',
'5' => '½',
'^' => '⅝',
- '6' => '◌',
+ '6' => "\N{COMBINING CIRCUMFLEX ACCENT}",
'&' => '⅞',
'7' => '{',
'*' => '™',
'0' => '}',
'_' => '¿',
'-' => '\\',
- '+' => '◌',
- '=' => '◌',
+ '+' => "\N{COMBINING OGONEK}",
+ '=' => "\N{COMBINING CEDILLA}",
'Q' => 'Ω',
'q' => '@',
'W' => 'Ẃ',
'o' => 'ó',
'P' => 'Þ',
'p' => 'þ',
- '{' => '◌',
- '[' => '◌',
- '}' => '◌',
- ']' => '◌',
+ '{' => "\N{COMBINING RING ABOVE}",
+ '}' => "\N{COMBINING MACRON}",
'A' => 'Á',
'a' => 'á',
'S' => '§',
'g' => 'ŋ',
'H' => 'Ħ',
'h' => 'ħ',
- 'J' => '◌',
- 'j' => '◌',
+ 'J' => "\N{COMBINING HORN}",
+ 'j' => "\N{COMBINING HOOK ABOVE}",
'K' => '&',
'k' => 'ĸ',
'L' => 'Ł',
'l' => 'ł',
- ':' => '◌',
- ';' => '◌',
- '@' => '◌',
- '\'' => '◌',
- '~' => '◌',
- '#' => '◌',
- '|' => '¦',
- '\\'=> '|',
+ ':' => "\N{COMBINING DOUBLE ACUTE ACCENT}",
+ ';' => "\N{COMBINING ACUTE ACCENT}",
+ '"' => "\N{COMBINING CARON}", # uk @
+ "'" => "\N{COMBINING ACUTE ACCENT}", # same as ;?
+ '|' => "\N{COMBINING TILDE}",
+ '\\'=> "\N{COMBINING BREVE}",
+ '~' => "\N{COMBINING GRAVE ACCENT}",
+ '`' => '¦',
'Z' => '<',
'z' => '«',
'X' => '>',
',' => '─',
'>' => '÷',
'.' => '·',
- '?' => '◌',
- '/' => '◌',
+ '?' => "\N{COMBINING DOT ABOVE}",
+ '/' => "\N{COMBINING DOT BELOW}",
);
+$rows{'['} = $rows{'2'};
+$rows{']'} = $rows{'#'};
+{
%{ do 'keyboard.eng.inc.pl' },