keyboard: recombine translations in include syntax

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

diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
index 12c2fbeea51b26c898a20050326757922fe51089..de6c23256e2938a08afccd404f8b62e635bcfb78 100644 (file)
--- a/keyboard/altgr/spacecadet.eng.inc.pl
+++ b/keyboard/altgr/spacecadet.eng.inc.pl
@@ -90,7 +90,7 @@ my %rows = (
 );
 
 my $groups = kbchars(\%rows);
-$rows{$_} =~ /\A\p{Greek}/ and $groups->{def}{''}{$_} =~ s/g6/g5/ for map {"+$_"} 'a'..'z';
+$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'];
 
@@ -101,7 +101,7 @@ $groups->{flag}{g5} = ['greek', 'different Greek letters or symbols'];
        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.',