X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/18606a64db0a6c02e5e289074b62728c93b5231b..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 215fc8e..c796cb3 100644
--- a/keyboard/altgr/apl.eng.inc.pl
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -1,8 +1,7 @@
use utf8;
use strict;
use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbchars');
+use Shiar_Sheet::KeyboardChars 'kbchars';
my %dyalogx = (
'Q' => 'â°',
@@ -94,7 +93,6 @@ my %rows = (
);
my $groups = kbchars(\%rows);
-$groups->{def}{''}{$_} = 'g4' for split //,'weEriIoOa/*'; # lookalikes
$groups->{def}{''}{$_} .= ' ext' for keys %dyalogx;
$groups->{flag}{ext} = ['extended', 'optional operators not available in all variants'];
@@ -102,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',
@@ -113,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',
}