no warnings 'qw';
use Shiar_Sheet::KeyboardChars 'kbmodes';
+my %info = (
+ mode => {
+ '' => 'altgr-shifted ⌥',
+ '*' => 'μ greek prefix ⌥*',
+ },
+ version => '1.0', # upstream v2.0 2021/04/12
+ title => 'Western European',
+ map => 'qwerty', # specific positioning
+ category => 'latin/thirdparty/xorg',
+ intro => join("\n",
+ 'Layout (<a href="https://altgr-weur.eu/" target=_blank>available</a> for major OSes)',
+ 'to provide all accented characters commonly used',
+ 'in 10 Western European languages available through one AltGr keystroke.',
+ ),
+ description => [
+ "QWERTY for Western European languages",
+ ],
+);
+
my %rows = (
'' => {
'!' => "\N{COMBINING DOT ABOVE}",
);
our %get;
-my $dweur = $get{map} && $get{map} eq 'dvorak';
-if ($dweur) {
+if ($get{map} and $get{map} eq 'dvorak') {
+ %info = (%info,
+ map => 'dvorak',
+ title => 'dWEURak',
+ intro => join("\n",
+ 'Layout for <a href="https://altgr-weur.eu/" target=_blank>Western European</a> languages',
+ 'repositioned for Dvorak letters instead of original <span class=family-name>Qwerty</span>.',
+ ),
+ description => [
+ "Dvorak for Western European languages",
+ ],
+ );
+ $info{version} .= '.1';
+
my $dq = q{
'z ,l .d pj yk fq gt r, l'
dv hb s8 tw 8.
$rows{S} = delete $rows{'*'};
}
-+{
- %{ kbmodes(\%rows) },
- mode => {
- '' => 'altgr-shifted ⌥',
- '*' => 'μ greek prefix ⌥*',
- },
- version => '1.0', # upstream v2.0 2021/04/12
- title => $dweur ? 'dWEURak' : 'Western European',
- category => 'latin/thirdparty/xorg',
- intro => join("\n",
- 'Layout (<a href="https://altgr-weur.eu/" target=_blank>available</a> for major OSes)',
- 'to provide all accented characters commonly used',
- 'in 10 Western European languages available through one AltGr keystroke.',
- ),
- description => [
- "QWERTY for Western European languages",
- ],
-}
++{ %{ kbmodes(\%rows) }, %info }