X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/12ed899f9f29468639a7a1462bd71fbe602d7510..fc013852833c931c4d76f867e4d4f9d937ca137e:/keyboard/altgr/apl.eng.inc.pl?ds=inline
diff --git a/keyboard/altgr/apl.eng.inc.pl b/keyboard/altgr/apl.eng.inc.pl
index 85d49ea..d7fbbc7 100644
--- a/keyboard/altgr/apl.eng.inc.pl
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -1,7 +1,17 @@
use utf8;
use strict;
use warnings;
-our %rows = (
+use Shiar_Sheet::KeyboardChars 'kbchars';
+
+my %dyalogx = (
+ 'Q' => 'â°',
+ 'R' => 'â¾',
+ 'G' => 'â¢',
+ 'B' => 'â',
+ 'N' => 'â¡',
+ 'M' => 'â¥',
+);
+my %rows = (
'~' => 'âº',
'!' => 'â¶',
'@' => 'â«',
@@ -40,12 +50,12 @@ our %rows = (
'w' => 'âµ',
'e' => 'â',
'r' => 'â´',
- 't' => '~',
+ 't' => 'â¼', # ~
'y' => 'â',
'u' => 'â',
'i' => 'â³',
'o' => 'â',
- 'p' => '*',
+ 'p' => 'â', # *
'[' => 'â',
']' => 'â',
'\\'=> 'â¢',
@@ -79,12 +89,18 @@ our %rows = (
',' => 'â',
'.' => 'â',
'/' => 'â¿',
+ %dyalogx,
);
+my $groups = kbchars(\%rows);
+$groups->{def}{''}{$_}[0] .= ' ext' for keys %dyalogx;
+$groups->{flag}{ext} = ['extended', 'optional operators not available in all variants'];
+
+{
- %{ do 'keyboard/altgr/groups.inc.pl' },
+ %{$groups},
version => '1.0',
title => 'APL',
+ category => 'specialised',
intro => join("\n",
'Resulting Unicode characters',
'of a typical APL keyboard layout',
@@ -96,5 +112,6 @@ our %rows = (
'Typical IBM-derived APL keyboard layout,',
'as found in APLX and Dyalog implementations.',
],
- image => 'keyboard/altgr/unicomp-apl.jpg',
+ image => 'data/keyboard/thumb/unicomp-apl.jpg',
+ imagealt => 'Alt on a custom keyboard with APL labels',
}