From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 30 Dec 2023 04:04:50 +0000 (+0100)
Subject: keyboard/altgr: legacy space cadet layout
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/584c356f502e31cb613b9a6d6b146806540f22ff

keyboard/altgr: legacy space cadet layout

Best effort transcription from online pictures.
---

diff --git a/keyboard/altgr.css b/keyboard/altgr.css
index 8414110..92a4393 100644
--- a/keyboard/altgr.css
+++ b/keyboard/altgr.css
@@ -32,6 +32,7 @@
 	color: #FFF;
 	line-height: 2.25ex;
 }
+.keys .meta td b,
 .keys .shift td b {
 	display: none;
 }
diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
new file mode 100644
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',
+}
diff --git a/keyboard/altgr/spacecadet.jpg b/keyboard/altgr/spacecadet.jpg
new file mode 100644
index 0000000..a5a1ff7
Binary files /dev/null and b/keyboard/altgr/spacecadet.jpg differ
diff --git a/tools/mksitemap b/tools/mksitemap
index abfd8d0..8d1dfb7 100755
--- a/tools/mksitemap
+++ b/tools/mksitemap
@@ -19,7 +19,7 @@ my @pages = (
 	[qw(
 		apl less screen digits sc/bw sc/hots termcol/legacy mplayer
 		keyboard/altgr/macos-abc keyboard/altgr/msx keyboard/altgr/ukext
-		keyboard/altgr/eurkey keyboard/altgr/apl
+		keyboard/altgr/eurkey keyboard/altgr/apl keyboard/altgr/spacecadet
 	)],
 	[qw( chars/table/html sample source plan )],
 );