X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/e1a705660758f0d1b2520717c8fd0823d7347e50..ce02e5e4baaf7c449ece5d46aa112258fd298cc9:/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 a245996..d7fbbc7 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,15 +92,15 @@ our %rows = (
%dyalogx,
);
-my $groups = do 'keyboard/altgr/groups.inc.pl';
-$groups->{def}{''}{$_} = 'g4' for split //,'weEriIoOa/*'; # lookalikes
-$groups->{def}{''}{$_} .= ' ext' for keys %dyalogx;
+my $groups = kbchars(\%rows);
+$groups->{def}{''}{$_}[0] .= ' ext' for keys %dyalogx;
$groups->{flag}{ext} = ['extended', 'optional operators not available in all variants'];
+{
%{$groups},
version => '1.0',
title => 'APL',
+ category => 'specialised',
intro => join("\n",
'Resulting Unicode characters',
'of a typical APL keyboard layout',
@@ -111,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',
}