git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
style: nested scss selectors
[sheet.git]
/
keyboard
/
altgr
/
weur.eng.inc.pl
diff --git
a/keyboard/altgr/weur.eng.inc.pl
b/keyboard/altgr/weur.eng.inc.pl
index 51b8fd06e9c60126cbfc598fc401fb87ef0b80c9..9315bf6198736f650a16025003dc455371f65805 100644
(file)
--- a/
keyboard/altgr/weur.eng.inc.pl
+++ b/
keyboard/altgr/weur.eng.inc.pl
@@
-4,10
+4,10
@@
use warnings;
no warnings 'qw';
use Shiar_Sheet::KeyboardChars 'kbmodes';
no warnings 'qw';
use Shiar_Sheet::KeyboardChars 'kbmodes';
+my $greekc = '*';
my %info = (
mode => {
'' => 'altgr-shifted ⌥',
my %info = (
mode => {
'' => 'altgr-shifted ⌥',
- '*' => 'μ greek prefix ⌥*',
},
version => '1.0', # upstream v2.0 2021/04/12
title => 'Western European',
},
version => '1.0', # upstream v2.0 2021/04/12
title => 'Western European',
@@
-122,54
+122,10
@@
my %rows = (
},
'*' => {
# dead_greek digraphs from data/xorg-compose
},
'*' => {
# dead_greek digraphs from data/xorg-compose
- 'A' => 'Α',
- 'a' => 'α',
- 'B' => 'Β',
- 'b' => 'β',
- 'D' => 'Δ',
- 'd' => 'δ',
- 'E' => 'Ε',
- 'e' => 'ε',
- 'F' => 'Φ',
- 'f' => 'φ',
- 'G' => 'Γ',
- 'g' => 'γ',
- 'H' => 'Η',
- 'h' => 'η',
- 'I' => 'Ι',
- 'i' => 'ι',
- 'J' => 'Θ',
- 'j' => 'θ',
- 'K' => 'Κ',
- 'k' => 'κ',
- 'L' => 'Λ',
- 'l' => 'λ',
- 'M' => 'Μ',
- 'm' => 'μ',
- 'N' => 'Ν',
- 'n' => 'ν',
- 'O' => 'Ο',
- 'o' => 'ο',
- 'P' => 'Π',
- 'p' => 'π',
- 'Q' => 'Χ',
- 'q' => 'χ',
- 'R' => 'Ρ',
- 'r' => 'ρ',
- 'S' => 'Σ',
- 's' => 'σ',
- 'T' => 'Τ',
- 't' => 'τ',
- 'U' => 'Υ',
- 'u' => 'υ',
- 'W' => 'Ω',
- 'w' => 'ω',
- 'X' => 'Ξ',
- 'x' => 'ξ',
- 'Y' => 'Ψ',
- 'y' => 'ψ',
- 'Z' => 'Ζ',
- 'z' => 'ζ',
+ qw(
+ a α b β d δ e ε f φ g γ h η i ι j θ k κ l λ m μ
+ n ν o ο p π q χ r ρ s σ t τ u υ w ω x ξ y ψ z ζ
+ ),
'*' => 'µ', # MICRO SIGN at space and double mode
},
);
'*' => 'µ', # MICRO SIGN at space and double mode
},
);
@@
-200,7
+156,13
@@
if ($get{map} and $get{map} eq 'dvorak') {
$dq{ $uc{$_} } = $uc{ $dq{$_} } for keys %dq; # same shifted
@{ $rows{''} }{keys %dq} = map { $rows{''}{$_} } values %dq;
$dq{ $uc{$_} } = $uc{ $dq{$_} } for keys %dq; # same shifted
@{ $rows{''} }{keys %dq} = map { $rows{''}{$_} } values %dq;
- $rows{S} = delete $rows{'*'};
+ %{ $rows{S} } = (%{ delete $rows{$greekc} },
+ qw( q θ c χ j ϑ J ϴ v ϖ V ∇ ),
+ );
+ $greekc = 'S';
}
}
+$info{mode}{$greekc} = "$rows{''}{$greekc} greek prefix ⌥$greekc";
+$_ = { (map {uc} %{$_}), %{$_} } for $rows{$greekc}; # uppercase greek
+
+{ %{ kbmodes(\%rows) }, %info }
+{ %{ kbmodes(\%rows) }, %info }