X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/febd26009e022853dcf4d28321386c733eb28fb3..12ed899f9f29468639a7a1462bd71fbe602d7510:/keyboard/altgr/apl.eng.inc.pl
diff --git a/keyboard/altgr/apl.eng.inc.pl b/keyboard/altgr/apl.eng.inc.pl
new file mode 100644
index 0000000..85d49ea
--- /dev/null
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -0,0 +1,100 @@
+use utf8;
+use strict;
+use warnings;
+our %rows = (
+ '~' => 'âº',
+ '!' => 'â¶',
+ '@' => 'â«',
+ '#' => 'â',
+ '$' => 'â',
+ '%' => 'â½',
+ '^' => 'â',
+ '&' => 'â',
+ '*' => 'â',
+ '(' => 'â±',
+ ')' => 'â²',
+ '_' => '!',
+ '+' => 'â¹',
+ '`' => 'â',
+ '1' => '¨',
+ '2' => '¯',
+ '3' => '<',
+ '4' => 'â¤',
+ '5' => '=',
+ '6' => 'â¥',
+ '7' => '>',
+ '8' => 'â ',
+ '9' => 'â¨',
+ '0' => 'â§',
+ '-' => 'Ã',
+ '=' => '÷',
+ 'E' => 'â·',
+ 'T' => 'â¨',
+ 'I' => 'â¸',
+ 'O' => 'â¥',
+ 'P' => 'â£',
+ '{' => 'â',
+ '}' => 'â¬',
+ '|' => 'â£',
+ 'q' => '?',
+ 'w' => 'âµ',
+ 'e' => 'â',
+ 'r' => 'â´',
+ 't' => '~',
+ 'y' => 'â',
+ 'u' => 'â',
+ 'i' => 'â³',
+ 'o' => 'â',
+ 'p' => '*',
+ '[' => 'â',
+ ']' => 'â',
+ '\\'=> 'â¢',
+ 'J' => 'â¤',
+ 'K' => 'â¸',
+ 'L' => 'â·',
+ ':' => 'â¡',
+ '"' => 'â¢',
+ 'a' => 'âº',
+ 's' => 'â',
+ 'd' => 'â',
+ 'f' => '_',
+ 'g' => 'â',
+ 'h' => 'â',
+ 'j' => 'â',
+ 'k' => "'",
+ 'l' => 'â',
+ ';' => 'â',
+ "'" => 'â',
+ 'Z' => 'â',
+ '<' => 'âª',
+ '>' => 'â',
+ '?' => 'â ',
+ 'z' => 'â',
+ 'x' => 'â',
+ 'c' => 'â©',
+ 'v' => 'âª',
+ 'b' => 'â¥',
+ 'n' => 'â¤',
+ 'm' => '|',
+ ',' => 'â',
+ '.' => 'â',
+ '/' => 'â¿',
+);
+
++{
+ %{ do 'keyboard/altgr/groups.inc.pl' },
+ version => '1.0',
+ title => 'APL',
+ intro => join("\n",
+ 'Resulting Unicode characters',
+ 'of a typical APL keyboard layout',
+ 'derived from IBM System/360 terminals.',
+ 'Usually obtained by prefixing `
(Dyalog)',
+ 'and/or pressing AltGr (APLX).',
+ ),
+ description => [
+ 'Typical IBM-derived APL keyboard layout,',
+ 'as found in APLX and Dyalog implementations.',
+ ],
+ image => 'keyboard/altgr/unicomp-apl.jpg',
+}