X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/f3506c6b837d7ad4fffeea2ed2772d274042d837..12ed899f9f29468639a7a1462bd71fbe602d7510:/keyboard/altgr/eurkey.eng.inc.pl
diff --git a/keyboard/altgr/eurkey.eng.inc.pl b/keyboard/altgr/eurkey.eng.inc.pl
index f67a4f9..cc820e7 100644
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -1,6 +1,31 @@
use utf8;
use strict;
use warnings;
+
+my $V = v1.3;
+
+my $presymbol = $V ge v1.3 ? '\\' : '-';
+my %arrows = (
+ 'h' => 'â',
+ 'H' => 'â',
+ 'j' => 'â',
+ 'J' => 'â',
+ 'k' => 'â',
+ 'K' => 'â',
+ 'l' => 'â',
+ 'L' => 'â',
+ 'u' => 'â',
+ 'U' => 'â',
+ 'i' => 'â',
+ 'I' => 'â',
+ 'n' => 'â',
+ 'N' => 'â',
+ 'm' => 'â',
+ 'M' => 'â',
+ '=' => 'â',
+ '+' => 'â',
+);
+
our %rows = (
'1' => '¡',
'!' => '¹',
@@ -8,22 +33,22 @@ our %rows = (
'@' => '²',
'3' => 'º',
'#' => '³',
- '4' => 'â¬',
+ '4' => $V ge v1.1 ? '£' : 'â¬',
'$' => 'Â¥',
- '5' => '£',
+ '5' => $V ge v1.1 ? 'â¬' : '£',
'%' => '¢',
'6' => "\N{COMBINING CIRCUMFLEX ACCENT}",
'^' => "\N{COMBINING CARON}",
'7' => "\N{COMBINING RING ABOVE}",
'&' => "\N{COMBINING MACRON}",
- '8' => "\N{DOUBLE LOW-9 QUOTATION MARK}", #XXX
- '*' => "\N{SINGLE LOW-9 QUOTATION MARK}", #XXX
+ '8' => "\N{DOUBLE LOW-9 QUOTATION MARK}",
+ '*' => "\N{SINGLE LOW-9 QUOTATION MARK}",
'9' => "\N{LEFT DOUBLE QUOTATION MARK}",
'(' => "\N{LEFT SINGLE QUOTATION MARK}",
'0' => "\N{RIGHT DOUBLE QUOTATION MARK}",
')' => "\N{RIGHT SINGLE QUOTATION MARK}",
- '-' => '©',
- '_' => 'â',
+ '-' => $V ge v1.3 ? 'â' : '©',
+ '_' => $V ge v1.3 ? 'â' : 'â',
'=' => 'Ã',
'+' => '÷',
'q' => 'æ',
@@ -54,9 +79,9 @@ our %rows = (
'a' => 'ä',
'A' => 'Ã',
's' => 'Ã',
- 'S' => '¶',
- 'd' => 'ð',
- 'D' => 'Ã',
+ 'S' => $V ge v1.3 ? 'áº' : '¶',
+ 'd' => $V ge v1.2 ? 'Ä' : 'ð',
+ 'D' => $V ge v1.2 ? 'Ä' : 'Ã',
'f' => 'è',
'F' => 'Ã',
'g' => 'é',
@@ -69,10 +94,10 @@ our %rows = (
'K' => 'IJ',
'l' => 'ø',
'L' => 'Ã',
- ';' => "\N{COMBINING DIAERESIS}",
- ':' => '·', # periodcentered
+ ';' => $V ge v1.2 ? '°' : "\N{COMBINING DIAERESIS}",
+ ':' => '·',
"'" => "\N{COMBINING ACUTE ACCENT}",
- '"' => 'â ',
+ '"' => $V ge v1.2 ? "\N{COMBINING DIAERESIS}" : 'â ',
'`' => "\N{COMBINING GRAVE ACCENT}",
'~' => "\N{COMBINING TILDE}",
@@ -91,24 +116,183 @@ our %rows = (
'n' => 'ñ',
'N' => 'Ã',
'm' => 'Ω',
- 'M' => '±',
+ 'M' => 'â', # ±
',' => 'ò',
'<' => 'Ã',
'.' => 'ó',
'>' => 'Ã',
'/' => '¿',
+ '?' => 'â¦',
+
+ # greek
+ 'ma' => 'α',
+ 'mb' => 'β', # v
+ 'mg' => 'γ',
+ 'md' => 'δ',
+ 'me' => 'ε',
+ 'mz' => 'ζ',
+ 'mi' => 'η',
+ 'mh' => 'θ',
+ 'mj' => 'ι',
+ 'mk' => 'κ',
+ 'ml' => 'λ',
+ 'mm' => 'μ',
+ 'mn' => 'ν',
+ 'mx' => 'ξ',
+ 'mo' => 'ο',
+ 'mp' => 'Ï',
+ 'mr' => 'Ï',
+ 'ms' => 'Ï',
+ 'mt' => 'Ï',
+ 'my' => 'Ï
',
+ 'mf' => 'Ï',
+ 'mc' => 'Ï',
+ 'mw' => 'Ï',
+ 'mq' => 'Ï', # u
+
+ # suþscript
+ 'm1' => '¹',
+ 'm2' => '²',
+ 'm3' => '³',
+ 'm4' => 'â´',
+ 'm5' => 'âµ',
+ 'm6' => 'â¶',
+ 'm7' => 'â·',
+ 'm8' => 'â¸',
+ 'm9' => 'â¹',
+ 'm0' => 'â°',
+ 'm!' => 'â',
+ 'm@' => 'â',
+ 'm#' => 'â',
+ 'm$' => 'â',
+ 'm%' => 'â
',
+ 'm^' => 'â',
+ 'm&' => 'â',
+ 'm*' => 'â',
+ 'm(' => 'â',
+ 'm)' => 'â',
+
+ # maths
+ 'M!' => 'â ',
+ 'M~' => 'â',
+ 'M=' => 'â',
+ 'M>' => 'â¥',
+ 'M<' => 'â¤',
+ 'M-' => '±',
+ 'Mi' => 'â',
+ 'Mn' => 'â¿',
+ 'Mr' => 'â',
+ 'M3' => 'â',
+ 'M4' => 'â',
+ 'M%' => 'â°',
+
+ 'Mf' => 'Æ',
+ 'MS' => 'â«',
+ "M'" => 'â²',
+ 'M"' => 'â³',
+ 'Mp' => 'â',
+ 'Md' => 'Î',
+ 'MD' => 'â',
+ 'M+' => 'â',
+ 'M*' => 'â',
+ 'M^' => 'â',
+
+ 'Ms' => 'â©',
+ 'Mu' => 'âª',
+ 'MU' => 'â',
+ 'MO' => 'â
',
+ 'Mg' => 'â',
+ 'MG' => 'â',
+ 'Mh' => 'â',
+ 'MH' => 'â
',
+ 'Mb' => 'â',
+ 'MB' => 'â',
+ 'Mm' => 'â',
+ 'MM' => 'â',
+ 'Mk' => 'â',
+ 'MK' => 'â',
+
+ 'MA' => 'â',
+ 'ME' => 'â',
+ 'MX' => 'â',
+ 'M&' => 'â§',
+ 'M|' => 'â¨',
+ 'Mc' => 'â',
+ 'M.' => 'â
',
+ 'Mo' => 'â',
+ 'M:' => 'â´',
+ 'M;' => 'âµ',
+ 'Mz' => 'â¯',
+ 'MF' => 'â',
+
+ 'MR' => 'â',
+ 'MC' => 'â',
+ 'MN' => 'â',
+ 'MP' => 'â',
+ 'MQ' => 'â',
+ 'MZ' => 'â¤',
+ 'M9' => 'â',
+ 'M8' => 'â ',
+ 'M7' => 'â¡',
+ 'Ml' => 'â¥',
+ 'ML' => 'â¦',
+
+ # symbols
+ '-1' => '¼',
+ '-2' => '½',
+ '-3' => '¾',
+ '-4' => 'â
',
+ '-5' => 'â
',
+ '-c' => '©',
+ '-p' => 'â',
+ '-r' => '®',
+ '-s' => 'â ',
+ '-t' => 'â¢',
+
+ '\s' => '§',
+ '\1' => 'â',
+ '\2' => '½',
+ '\3' => 'â
',
+ '\4' => '¼',
+ '\5' => 'â
',
+ '\6' => '¾',
+ '\c' => '©',
+ '\p' => 'â',
+ '\r' => '®',
+ '\t' => 'â¢',
+ '\T' => 'â ',
+
+ (map { ($presymbol.$_ => $arrows{$_}) } keys %arrows),
);
+my $groups = do 'keyboard/altgr/groups.inc.pl';
+$groups->{mode} = {
+ '' => 'option-shifted â¥',
+ 'm' => 'Ω greek prefix â¥m',
+ 'M' => 'â maths prefix â¥M',
+ $presymbol => "$rows{$presymbol} symbol prefix â¥$presymbol",
+};
+for my $m (qw' m M ', $presymbol) {
+ $groups->{def}->{''}->{$m} = "g1 mode$m";
+ $groups->{mode}->{$m} //= "mode $m";
+ $groups->{def}->{$m} = {
+ (map {s/^.//r => 'g0'} grep {/^\Q$m/} keys %rows),
+ $m => 'g1 mode',
+ };
+}
+$groups->{flag}->{g1} = ['mode' => "switch to an alternate set of keys"];
+
+{
- %{ do 'keyboard/altgr/groups.inc.pl' },
+ %{$groups},
version => '1.0',
title => 'EurKEY',
intro => join("\n",
- 'Resulting selection of Unicode characters',
- "while pressing ⥠Option (Alt) with Apple's US (or US International) layout",
- 'on macOS.',
- q{An alternative ABC Extended is also available.},
- q{Different from AltGr on Windows.},
+ 'Third-party proposal EurKEY',
+ 'v1.3 by Steffen Brüntjen',
+ 'supporting most European languages while pressing AltGr or ⥠Option.',
+ 'Selectable in Linux',
+ 'and available for Windows',
+ 'or macOS.',
),
description => [
"An interactive map of EurKEY, the European Keyboard Layout.",