git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
74c62db
)
keyboard/altgr/msx: anachronisic proposals of missing uppercase
author
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 2 Jan 2024 02:29:07 +0000
(
03:29
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 3 Jan 2024 21:44:03 +0000
(22:44 +0100)
keyboard/altgr/msx.eng.inc.pl
patch
|
blob
|
history
diff --git
a/keyboard/altgr/msx.eng.inc.pl
b/keyboard/altgr/msx.eng.inc.pl
index af79ad3a03770dc00b46c9d08a3739d87ef0ac4a..eeb71c46f5c6195ee2bd030f5c79da00caccf05b 100644
(file)
--- a/
keyboard/altgr/msx.eng.inc.pl
+++ b/
keyboard/altgr/msx.eng.inc.pl
@@
-81,9
+81,22
@@
my %rows = (
'/' => 'º',
);
'/' => 'º',
);
+my %uc = (
+ (map { (uc $_ => uc $rows{$_}) } grep {
+ !defined $rows{uc $_}
+ } keys %rows),
+ '|' => '€',
+ 'M' => 'Ú',
+ '+' => 'Ø',
+);
+
+my $groups = kbchars({%rows, %uc});
+$groups->{def}{''}{$_} .= ' ext' for keys %uc;
+$groups->{flag}{ext} = ['anachrone', 'expected uppercase variants if allowed by charset'];
+
+{
+{
- %{
kbchars(\%rows)
},
- version => '1.
0
',
+ %{
$groups
},
+ version => '1.
1
',
title => 'msx code',
intro => join("\n",
'Resulting <a href="/unicode">selection</a> of equivalent <a href="/charset">Unicode</a> characters',
title => 'msx code',
intro => join("\n",
'Resulting <a href="/unicode">selection</a> of equivalent <a href="/charset">Unicode</a> characters',