X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/584c356f502e31cb613b9a6d6b146806540f22ff..ce02e5e4baaf7c449ece5d46aa112258fd298cc9:/keyboard/altgr/spacecadet.eng.inc.pl
diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
index cc6915d..de6c232 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}{''}{$_}[0] =~ 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 glyphs available',
- 'on the 1978 Symbolics Space Cadet keyboard',
+ 'on the 1978 (later Symbolics) Space Cadet keyboard',
'by pressing either the Greek/Front or Top key.',
'Distinct from the modern IBM standard',
'for APL 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',
}