X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a276e0dab371d0d9e663284023d0a3f7ea93b369..ce02e5e4baaf7c449ece5d46aa112258fd298cc9:/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 1e73e21..456ac15 100644
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -1,10 +1,13 @@
use utf8;
use strict;
use warnings;
+use Shiar_Sheet::KeyboardChars 'kbmodes';
my $V = v1.3;
-our %rows = (
+my $presymbol = $V ge v1.3 ? '\\' : '-';
+my %rows = (
+ '' => {
'1' => '¡',
'!' => '¹',
'2' => 'ª',
@@ -101,12 +104,191 @@ our %rows = (
'>' => 'Ã',
'/' => '¿',
'?' => 'â¦',
+ },
+
+ # greek
+ '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
+ '1' => '¹',
+ '2' => '²',
+ '3' => '³',
+ '4' => 'â´',
+ '5' => 'âµ',
+ '6' => 'â¶',
+ '7' => 'â·',
+ '8' => 'â¸',
+ '9' => 'â¹',
+ '0' => 'â°',
+ '!' => 'â',
+ '@' => 'â',
+ '#' => 'â',
+ '$' => 'â',
+ '%' => 'â
',
+ '^' => 'â',
+ '&' => 'â',
+ '*' => 'â',
+ '(' => 'â',
+ ')' => 'â',
+ },
+
+ # maths
+ 'M' => {
+ '!' => 'â ',
+ '~' => 'â',
+ '=' => 'â',
+ '>' => 'â¥',
+ '<' => 'â¤',
+ '-' => '±',
+ 'i' => 'â',
+ 'n' => 'â¿',
+ 'r' => 'â',
+ '3' => 'â',
+ '4' => 'â',
+ '%' => 'â°',
+
+ 'f' => 'Æ',
+ 'S' => 'â«',
+ "'" => 'â²',
+ '"' => 'â³',
+ 'p' => 'â',
+ 'd' => 'Î',
+ 'D' => 'â',
+ '+' => 'â',
+ '*' => 'â',
+ '^' => 'â',
+
+ 's' => 'â©',
+ 'u' => 'âª',
+ 'U' => 'â',
+ 'O' => 'â
',
+ 'g' => 'â',
+ 'G' => 'â',
+ 'h' => 'â',
+ 'H' => 'â
',
+ 'b' => 'â',
+ 'B' => 'â',
+ 'm' => 'â',
+ 'M' => 'â',
+ 'k' => 'â',
+ 'K' => 'â',
+
+ 'A' => 'â',
+ 'E' => 'â',
+ 'X' => 'â',
+ '&' => 'â§',
+ '|' => 'â¨',
+ 'c' => 'â',
+ '.' => 'â
',
+ 'o' => 'â',
+ ':' => 'â´',
+ ';' => 'âµ',
+ 'z' => 'â¯',
+ 'F' => 'â',
+
+ 'R' => 'â',
+ 'C' => 'â',
+ 'N' => 'â',
+ 'P' => 'â',
+ 'Q' => 'â',
+ 'Z' => 'â¤',
+ '9' => 'â',
+ '8' => 'â ',
+ '7' => 'â¡',
+ 'l' => 'â¥',
+ 'L' => 'â¦',
+ },
+
+ # symbols
+ $presymbol => {
+ 't' => 'â¢',
+ 'c' => '©',
+ 'p' => 'â',
+ 'r' => '®',
+ $V lt v1.3 ? (
+ '1' => '¼',
+ '2' => '½',
+ '3' => '¾',
+ '4' => 'â
',
+ '5' => 'â
',
+ 's' => 'â ',
+ ) : (
+ 's' => '§',
+ '1' => 'â',
+ '2' => '½',
+ '3' => 'â
',
+ '4' => '¼',
+ '5' => 'â
',
+ '6' => '¾',
+ 'T' => 'â ',
+ ),
+
+ # arrows
+ 'h' => 'â',
+ 'H' => 'â',
+ 'j' => 'â',
+ 'J' => 'â',
+ 'k' => 'â',
+ 'K' => 'â',
+ 'l' => 'â',
+ 'L' => 'â',
+ 'u' => 'â',
+ 'U' => 'â',
+ 'i' => 'â',
+ 'I' => 'â',
+ 'n' => 'â',
+ 'N' => 'â',
+ 'm' => 'â',
+ 'M' => 'â',
+ '=' => 'â',
+ '+' => 'â',
+ },
);
+# uppercase greek
+$rows{m}{uc $_} //= uc $rows{m}{$_} for keys %{ $rows{m} };
+
+{
- %{ do 'keyboard/altgr/groups.inc.pl' },
- 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',
@@ -118,5 +300,6 @@ our %rows = (
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',
}