summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9161aea)
Replace random results from qwerty positioning by a complete reorder
where accents can consistently repeat the aoeui vowels, with consonants
(including ß) still at base letters, and remaining dead keys clustered
neatly at the top right.
Seriously wondering if this was the original layout as it all fits so much
better.
use utf8;
use strict;
use warnings;
use utf8;
use strict;
use warnings;
use Shiar_Sheet::KeyboardChars 'kbmodes';
my %rows = (
use Shiar_Sheet::KeyboardChars 'kbmodes';
my %rows = (
+our %get;
+my $dweur = $get{map} && $get{map} eq 'dvorak';
+if ($dweur) {
+ 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{'*'};
+}
+
+{
%{ kbmodes(\%rows) },
mode => {
+{
%{ kbmodes(\%rows) },
mode => {
'*' => 'greek mode ⌥*',
},
version => '1.0', # upstream v2.0 2021/04/12
'*' => 'greek mode ⌥*',
},
version => '1.0', # upstream v2.0 2021/04/12
- title => 'Western European',
+ 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)',
category => 'latin/thirdparty/xorg',
intro => join("\n",
'Layout (<a href="https://altgr-weur.eu/" target=_blank>available</a> for major OSes)',