X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/584c356f502e31cb613b9a6d6b146806540f22ff..9830d2491e85baa0f42cb0898f2c19974e21e96a:/keyboard/altgr/spacecadet.eng.inc.pl

diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
index cc6915d..740dd35 100644
--- a/keyboard/altgr/spacecadet.eng.inc.pl
+++ b/keyboard/altgr/spacecadet.eng.inc.pl
@@ -1,7 +1,9 @@
 use utf8;
 use strict;
 use warnings;
-our %rows = (
+use Shiar_Sheet::KeyboardChars 'kbchars';
+
+my %rows = (
 	'q' => '∧',
 	'w' => '∨',
 	'e' => '∩',
@@ -87,13 +89,19 @@ our %rows = (
 	'+/' => '∫',
 );
 
+my $groups = kbchars(\%rows);
+$rows{$_} =~ /\A\p{Greek}/ and $groups->{def}{''}{$_} =~ s/g6/g5/ for map {"+$_"} 'a'..'z';
+$groups->{flag}{g4} = ['similar', 'transliterates or transcribes an expected letter'];
+$groups->{flag}{g5} = ['greek', 'different Greek letters or symbols'];
+
 +{
-	%{ do 'keyboard/altgr/groups.inc.pl' },
-	version => '1.0',
+	%{$groups},
+	version => '1.1',
 	title => 'Space Cadet',
+	category => 'legacy',
 	intro => join("\n",
 		'Apparent <a href="/charset">glyphs</a> available',
-		'on the 1978 Symbolics Space Cadet keyboard',
+		'on the 1978 (later 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.',
@@ -104,5 +112,6 @@ our %rows = (
 	],
 	rows => [3, 0], # greek/front and top
 	moderows => '41-4',
-	image => 'keyboard/altgr/spacecadet.jpg',
+	image => 'data/keyboard/thumb/spacecadet.jpg',
+	imagealt => 'Many modifier keys on a traditional Symbolics Space Cadet keyboard',
 }