X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1fffc8ba4ed48b9cc9a8fd76532ef7396f3d27b6..46944bb7e93f8d19da8cc22630c42dedf0521670:/keyboard/altgr/windows.eng.inc.pl
diff --git a/keyboard/altgr/windows.eng.inc.pl b/keyboard/altgr/windows.eng.inc.pl
index f110c86..ccfd75f 100644
--- a/keyboard/altgr/windows.eng.inc.pl
+++ b/keyboard/altgr/windows.eng.inc.pl
@@ -1,6 +1,7 @@
use utf8;
use strict;
use warnings;
+use Shiar_Sheet::KeyboardChars 'kbchars';
my @az = ('A'..'Z', 'a'..'z');
my @letters = qw(
@@ -21,7 +22,7 @@ my %xkb = (
'?' => "\N{COMBINING HOOK ABOVE}",
);
-our %rows = (
+my %rows = (
'~' => "\N{COMBINING TILDE}",
'`' => "\N{COMBINING GRAVE ACCENT}",
'!' => '¹',
@@ -60,13 +61,14 @@ our %rows = (
} 0 .. $#az
);
-my $groups = do './keyboard/altgr/groups.inc.pl';
+my $groups = kbchars(\%rows);
$groups->{def}{''}{$_} .= ' ext' for keys %xkb;
$groups->{flag}{ext} = ['xkb', 'unofficial extensions added in Linux (Gnome, KDE)'];
+{
%{$groups},
title => 'Windows AltGr',
+ category => '1/latin/windows/xorg',
version => '1.4',
intro => join("\n",
'Resulting selection of Unicode characters',
@@ -78,5 +80,6 @@ $groups->{flag}{ext} = ['xkb', 'unofficial extensions added in Linux (Gnome, KDE
"Windows US international keyboard layout table",
"with the AltGr modifier key.",
],
- image => 'keyboard/altgr/ku2971b-usint.jpg',
+ image => 'data/keyboard/thumb/ku2971b-usint.jpg',
+ imagealt => 'AltGr on a KeyboardCompany KU2971B with USA International keycaps',
}