use utf8;
use strict;
use warnings;
-do './keyboard/altgr/groups.inc.pl';
+use Shiar_Sheet::KeyboardChars 'kbmodes';
my $V = v1.3;
# greek
'm' => {
'a' => 'α',
- 'b' => 'β', # v
+ 'b' => 'β',
'g' => 'γ',
'd' => 'δ',
'e' => 'ε',
'f' => 'φ',
'c' => 'χ',
'w' => 'ψ',
- 'q' => 'ω', # u
+ 'q' => 'ω',
+
+ # aliases
+ 'v' => \'mb',
+ 'V' => \'mB',
+ 'u' => \'mq',
+ 'U' => \'mQ',
# suþscript
'1' => '¹',
},
);
+# uppercase greek
+$rows{m}{uc $_} //= uc $rows{m}{$_} for keys %{ $rows{m} };
+
+{
%{ kbmodes(\%rows) },
mode => {
'' => 'option-shifted ⌥',
'm' => 'Ω greek prefix ⌥m',
'M' => '√ maths prefix ⌥M',
- $presymbol => "$rows{$presymbol} symbol prefix ⌥$presymbol",
+ $presymbol => "$rows{''}{$presymbol} symbol prefix ⌥$presymbol",
},
- version => '1.0',
+ version => '1.2',
title => 'EurKEY',
+ category => 'latin/thirdparty/xorg',
intro => join("\n",
'Third-party proposal <a href="https://eurkey.steffen.bruentjen.eu/">EurKEY</a>',
'<abbr title="last updated 2017-05-15">v1.3</abbr> by Steffen Brüntjen',
description => [
"An interactive map of EurKEY, the European Keyboard Layout.",
],
- image => 'keyboard/altgr/eurkeyboard.jpg',
+ image => 'data/keyboard/thumb/eurkeyboard.jpg',
+ imagealt => 'Right alt on the EurKEYboard created by Psy-Q',
}