X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/47bd3fa505fa47ac648265786e13f2fd10112be1..2e8c1e3cc39cc1c6e4b858242d2a3a39481b9640:/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 d5eb309..c796cb3 100644
--- a/keyboard/altgr/apl.eng.inc.pl
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -1,6 +1,7 @@
use utf8;
use strict;
use warnings;
+use Shiar_Sheet::KeyboardChars 'kbchars';
my %dyalogx = (
'Q' => 'â°',
@@ -10,7 +11,7 @@ my %dyalogx = (
'N' => 'â¡',
'M' => 'â¥',
);
-our %rows = (
+my %rows = (
'~' => 'âº',
'!' => 'â¶',
'@' => 'â«',
@@ -91,7 +92,7 @@ our %rows = (
%dyalogx,
);
-my $groups = do 'keyboard/altgr/groups.inc.pl';
+my $groups = kbchars(\%rows);
$groups->{def}{''}{$_} .= ' ext' for keys %dyalogx;
$groups->{flag}{ext} = ['extended', 'optional operators not available in all variants'];
@@ -99,6 +100,7 @@ $groups->{flag}{ext} = ['extended', 'optional operators not available in all var
%{$groups},
version => '1.0',
title => 'APL',
+ category => 'specialised',
intro => join("\n",
'Resulting Unicode characters',
'of a typical APL keyboard layout',
@@ -110,5 +112,6 @@ $groups->{flag}{ext} = ['extended', 'optional operators not available in all var
'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',
}