X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/febd26009e022853dcf4d28321386c733eb28fb3..c107916780c5d7bf0267ae031a72eb331145d935:/keyboard/altgr/eurkey.eng.inc.pl?ds=inline
diff --git a/keyboard/altgr/eurkey.eng.inc.pl b/keyboard/altgr/eurkey.eng.inc.pl
index cc820e7..456ac15 100644
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -1,32 +1,13 @@
use utf8;
use strict;
use warnings;
+use Shiar_Sheet::KeyboardChars 'kbmodes';
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 = (
+my %rows = (
+ '' => {
'1' => '¡',
'!' => '¹',
'2' => 'ª',
@@ -123,169 +104,191 @@ our %rows = (
'>' => 'Ã',
'/' => '¿',
'?' => 'â¦',
+ },
# 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
+ 'm' => {
+ 'a' => 'α',
+ 'b' => 'β',
+ 'g' => 'γ',
+ 'd' => 'δ',
+ 'e' => 'ε',
+ 'z' => 'ζ',
+ 'i' => 'η',
+ 'h' => 'θ',
+ 'j' => 'ι',
+ 'k' => 'κ',
+ 'l' => 'λ',
+ 'm' => 'μ',
+ 'n' => 'ν',
+ 'x' => 'ξ',
+ 'o' => 'ο',
+ 'p' => 'Ï',
+ 'r' => 'Ï',
+ 's' => 'Ï',
+ 't' => 'Ï',
+ 'y' => 'Ï
',
+ 'f' => 'Ï',
+ 'c' => 'Ï',
+ 'w' => 'Ï',
+ 'q' => 'Ï',
+
+ # aliases
+ 'v' => \'mb',
+ 'V' => \'mB',
+ 'u' => \'mq',
+ 'U' => \'mQ',
- # suþscript
- 'm1' => '¹',
- 'm2' => '²',
- 'm3' => '³',
- 'm4' => 'â´',
- 'm5' => 'âµ',
- 'm6' => 'â¶',
- 'm7' => 'â·',
- 'm8' => 'â¸',
- 'm9' => 'â¹',
- 'm0' => 'â°',
- 'm!' => 'â',
- 'm@' => 'â',
- 'm#' => 'â',
- 'm$' => 'â',
- 'm%' => 'â
',
- 'm^' => 'â',
- 'm&' => 'â',
- 'm*' => 'â',
- 'm(' => 'â',
- 'm)' => 'â',
+ # suþscript
+ '1' => '¹',
+ '2' => '²',
+ '3' => '³',
+ '4' => 'â´',
+ '5' => 'âµ',
+ '6' => 'â¶',
+ '7' => 'â·',
+ '8' => 'â¸',
+ '9' => 'â¹',
+ '0' => 'â°',
+ '!' => 'â',
+ '@' => 'â',
+ '#' => 'â',
+ '$' => 'â',
+ '%' => 'â
',
+ '^' => 'â',
+ '&' => 'â',
+ '*' => 'â',
+ '(' => 'â',
+ ')' => 'â',
+ },
# maths
- 'M!' => 'â ',
- 'M~' => 'â',
- 'M=' => 'â',
- 'M>' => 'â¥',
- 'M<' => 'â¤',
- 'M-' => '±',
- 'Mi' => 'â',
- 'Mn' => 'â¿',
- 'Mr' => 'â',
- 'M3' => 'â',
- 'M4' => 'â',
- 'M%' => 'â°',
+ 'M' => {
+ '!' => 'â ',
+ '~' => 'â',
+ '=' => 'â',
+ '>' => 'â¥',
+ '<' => 'â¤',
+ '-' => '±',
+ 'i' => 'â',
+ 'n' => 'â¿',
+ 'r' => 'â',
+ '3' => 'â',
+ '4' => 'â',
+ '%' => 'â°',
- 'Mf' => 'Æ',
- 'MS' => 'â«',
- "M'" => 'â²',
- 'M"' => 'â³',
- 'Mp' => 'â',
- 'Md' => 'Î',
- 'MD' => 'â',
- 'M+' => 'â',
- 'M*' => 'â',
- 'M^' => 'â',
+ 'f' => 'Æ',
+ 'S' => 'â«',
+ "'" => 'â²',
+ '"' => 'â³',
+ 'p' => 'â',
+ 'd' => 'Î',
+ 'D' => 'â',
+ '+' => 'â',
+ '*' => 'â',
+ '^' => 'â',
- 'Ms' => 'â©',
- 'Mu' => 'âª',
- 'MU' => 'â',
- 'MO' => 'â
',
- 'Mg' => 'â',
- 'MG' => 'â',
- 'Mh' => 'â',
- 'MH' => 'â
',
- 'Mb' => 'â',
- 'MB' => 'â',
- 'Mm' => 'â',
- 'MM' => 'â',
- 'Mk' => 'â',
- 'MK' => 'â',
+ 's' => 'â©',
+ 'u' => 'âª',
+ 'U' => 'â',
+ 'O' => 'â
',
+ 'g' => 'â',
+ 'G' => 'â',
+ 'h' => 'â',
+ 'H' => 'â
',
+ 'b' => 'â',
+ 'B' => 'â',
+ 'm' => 'â',
+ 'M' => 'â',
+ 'k' => 'â',
+ 'K' => 'â',
- 'MA' => 'â',
- 'ME' => 'â',
- 'MX' => 'â',
- 'M&' => 'â§',
- 'M|' => 'â¨',
- 'Mc' => 'â',
- 'M.' => 'â
',
- 'Mo' => 'â',
- 'M:' => 'â´',
- 'M;' => 'âµ',
- 'Mz' => 'â¯',
- 'MF' => 'â',
+ 'A' => 'â',
+ 'E' => 'â',
+ 'X' => 'â',
+ '&' => 'â§',
+ '|' => 'â¨',
+ 'c' => 'â',
+ '.' => 'â
',
+ 'o' => 'â',
+ ':' => 'â´',
+ ';' => 'âµ',
+ 'z' => 'â¯',
+ 'F' => 'â',
- 'MR' => 'â',
- 'MC' => 'â',
- 'MN' => 'â',
- 'MP' => 'â',
- 'MQ' => 'â',
- 'MZ' => 'â¤',
- 'M9' => 'â',
- 'M8' => 'â ',
- 'M7' => 'â¡',
- 'Ml' => 'â¥',
- 'ML' => 'â¦',
+ 'R' => 'â',
+ 'C' => 'â',
+ 'N' => 'â',
+ 'P' => 'â',
+ 'Q' => 'â',
+ 'Z' => 'â¤',
+ '9' => 'â',
+ '8' => 'â ',
+ '7' => 'â¡',
+ 'l' => 'â¥',
+ 'L' => 'â¦',
+ },
# symbols
- '-1' => '¼',
- '-2' => '½',
- '-3' => '¾',
- '-4' => 'â
',
- '-5' => 'â
',
- '-c' => '©',
- '-p' => 'â',
- '-r' => '®',
- '-s' => 'â ',
- '-t' => 'â¢',
+ $presymbol => {
+ 't' => 'â¢',
+ 'c' => '©',
+ 'p' => 'â',
+ 'r' => '®',
+ $V lt v1.3 ? (
+ '1' => '¼',
+ '2' => '½',
+ '3' => '¾',
+ '4' => 'â
',
+ '5' => 'â
',
+ 's' => 'â ',
+ ) : (
+ 's' => '§',
+ '1' => 'â',
+ '2' => '½',
+ '3' => 'â
',
+ '4' => '¼',
+ '5' => 'â
',
+ '6' => '¾',
+ 'T' => 'â ',
+ ),
- '\s' => '§',
- '\1' => 'â',
- '\2' => '½',
- '\3' => 'â
',
- '\4' => '¼',
- '\5' => 'â
',
- '\6' => '¾',
- '\c' => '©',
- '\p' => 'â',
- '\r' => '®',
- '\t' => 'â¢',
- '\T' => 'â ',
-
- (map { ($presymbol.$_ => $arrows{$_}) } keys %arrows),
+ # arrows
+ 'h' => 'â',
+ 'H' => 'â',
+ 'j' => 'â',
+ 'J' => 'â',
+ 'k' => 'â',
+ 'K' => 'â',
+ 'l' => 'â',
+ 'L' => 'â',
+ 'u' => 'â',
+ 'U' => 'â',
+ 'i' => 'â',
+ 'I' => 'â',
+ 'n' => 'â',
+ 'N' => 'â',
+ 'm' => 'â',
+ 'M' => 'â',
+ '=' => 'â',
+ '+' => 'â',
+ },
);
-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"];
+# uppercase greek
+$rows{m}{uc $_} //= uc $rows{m}{$_} for keys %{ $rows{m} };
+{
- %{$groups},
- version => '1.0',
+ %{ kbmodes(\%rows) },
+ mode => {
+ '' => 'option-shifted â¥',
+ 'm' => 'Ω greek prefix â¥m',
+ 'M' => 'â maths prefix â¥M',
+ $presymbol => "$rows{''}{$presymbol} symbol prefix â¥$presymbol",
+ },
+ version => '1.2',
title => 'EurKEY',
+ category => 'latin/thirdparty/xorg',
intro => join("\n",
'Third-party proposal EurKEY',
'v1.3 by Steffen Brüntjen',
@@ -297,5 +300,6 @@ $groups->{flag}->{g1} = ['mode' => "switch to an alternate set of keys"];
description => [
"An interactive map of EurKEY, the European Keyboard Layout.",
],
- image => 'keyboard/altgr/eurkeyboard.jpg',
+ image => 'data/keyboard/thumb/eurkeyboard.jpg',
+ imagealt => 'Right alt on the EurKEYboard created by Psy-Q',
}