-+{
- %{ kbmodes(\%rows) },
- mode => {
- '' => 'altgr-shifted ⌥',
- '*' => 'greek mode ⌥*',
- },
- version => '1.0', # upstream v2.0 2021/04/12
- title => '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",
- ],
+our %get;
+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.
+ ;s qp jr ky xm bx m; wf vh zg
+ };
+ my %dq = split //, $dq =~ s/\s//gr; # dvorak => qwerty key
+
+ my %uc = (qw{ ' " , < . > ; : - _ 8 * }, map {lc, uc} 'a'..'z');
+ $dq{ $uc{$_} } = $uc{ $dq{$_} } for keys %dq; # same shifted
+
+ @{ $rows{''} }{keys %dq} = map { $rows{''}{$_} } values %dq;
+ %{ $rows{S} } = (%{ delete $rows{$greekc} },
+ qw( q θ c χ j ϑ J ϴ v ϖ V ∇ ),
+ );
+ $greekc = 'S';