-+{
- %{ 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",
- ],
-}
+$info{mode}{$greekc} = "$rows{''}{$greekc} greek prefix ⌥$greekc";
+$_ = { (map {uc} %{$_}), %{$_} } for $rows{$greekc}; # uppercase greek
+
++{ %{ kbmodes(\%rows) }, %info }