keyboard/altgr: legacy space cadet layout

[sheet.git] / keyboard / altgr / spacecadet.eng.inc.pl

diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
new file mode 100644 (file)
index 0000000..cc6915d
--- /dev/null
+++ b/keyboard/altgr/spacecadet.eng.inc.pl
@@ -0,0 +1,108 @@
+use utf8;
+use strict;
+use warnings;
+our %rows = (
+       'q' => '∧',
+       'w' => '∨',
+       'e' => '∩',
+       'r' => '∪',
+       't' => '⊂',
+       'y' => '⊃',
+       'u' => '∀',
+       'i' => '∞',
+       'o' => '∃',
+       'p' => '∂',
+
+       'a' => '⊥',
+       's' => '⊤',
+       'd' => '⊢',
+       'f' => '⊣',
+       'g' => '↑',
+       'h' => '↓',
+       'j' => '←',
+       'k' => '→',
+       'l' => '↔',
+
+       'z' => '⌊',
+       'x' => '⌈',
+       'c' => '≠',
+       'v' => '≃',
+       'b' => '≡',
+       'n' => '≤',
+       'm' => '≥',
+       #',' => '<', # just shifted
+       #'.' => '>',
+       #'/' => '?',
+
+       '+:' => '⋄', # positioned left of 1, also drawn as §-ish
+       '+1' => '†',
+       '+2' => '‡',
+       '+3' => '∇',
+       '+4' => '¢',
+       '+5' => '∘',
+       '+6' => '⎕', # or ⌷
+       '+7' => '÷',
+       '+8' => '×',
+       '+9' => '¶',
+       '+0' => '○',
+       '+-' => '¯',
+       '+=' => '≈',
+
+       '+q' => 'θ',
+       '+w' => 'ω',
+       '+e' => 'ε',
+       '+r' => 'ρ',
+       '+t' => 'τ',
+       '+y' => 'ψ',
+       '+u' => 'υ',
+       '+i' => 'ι',
+       '+o' => 'ο',
+       '+p' => 'π',
+       '+[' => '⟦', # separate keys ([ and {<
+       '+]' => '⟧', # )] and }> ⟨⟩
+       '+`' => '¬', # positioned between ] and \
+       '+\\'=> '∥',
+
+       '+a' => 'α',
+       '+s' => 'σ',
+       '+d' => 'δ',
+       '+f' => 'φ', # drawn like ø
+       '+g' => 'γ',
+       '+h' => 'η',
+       '+j' => 'ϑ', # probably
+       '+k' => 'κ',
+       '+l' => 'λ',
+       '+;' => '¨',
+       "+'" => '·', # ambiguous dot (visually raised •)
+
+       '+z' => 'ζ',
+       '+x' => 'ξ',
+       '+c' => 'χ',
+       '+v' => 'ς', # likely
+       '+b' => 'β',
+       '+n' => 'ν',
+       '+m' => 'μ',
+       '+,' => '≪',
+       '+.' => '≫',
+       '+/' => '∫',
+);
+
++{
+       %{ do 'keyboard/altgr/groups.inc.pl' },
+       version => '1.0',
+       title => 'Space Cadet',
+       intro => join("\n",
+               'Apparent <a href="/charset">glyphs</a> available',
+               'on the 1978 Symbolics Space Cadet keyboard',
+               'by pressing either the <em>Greek/Front</em> or <em>Top</em> key.',
+               'Distinct from the modern <a href="/keyboard/altgr/apl">IBM standard</a>',
+               'for <a href="/apl">APL</a> programming.',
+       ),
+       description => [
+               'A map of the legendary Space Cadet keyboard',
+               'with Unicode characters of all greek and APL options.',
+       ],
+       rows => [3, 0], # greek/front and top
+       moderows => '41-4',
+       image => 'keyboard/altgr/spacecadet.jpg',
+}