X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/973451ff27debd3dcc2ccd4c9c26a08aceb39e4c..refs/heads/master:/keyboard/altgr/msx-graph.eng.inc.pl?ds=inline
diff --git a/keyboard/altgr/msx-graph.eng.inc.pl b/keyboard/altgr/msx-graph.eng.inc.pl
index 3bcf5d1..dd4a5b5 100644
--- a/keyboard/altgr/msx-graph.eng.inc.pl
+++ b/keyboard/altgr/msx-graph.eng.inc.pl
@@ -124,13 +124,13 @@ if (exists $get{compat}) {
my $groups = kbchars(\%rows);
# replace rare punctuation distinctions by symbols
-$groups->{def}{''}{$_} =~ s/g[78]/g6/ for keys %rows;
+$groups->{def}{''}{$_}[0] =~ s/g[78]/g6/ for keys %rows;
-$groups->{def}{''}{$_} = 'g7'
+$groups->{def}{''}{$_}[0] = 'g7'
for grep { $rows{$_} =~ /[\x{2500}-\x{259F}]/ } keys %rows;
$groups->{flag}{g7} = ['drawing', 'box drawing or block elements'];
-$groups->{def}{''}{$_} = 'g8' for keys %compat; # mostly U+1FBxx
+$groups->{def}{''}{$_}[0] = 'g8' for keys %compat; # mostly U+1FBxx
$groups->{flag}{g8} = ['legacy',
'drawing symbols best represented by Unicode 13.0'
. (exists $get{compat} && ', converted to compatible equivalents')
@@ -140,12 +140,15 @@ $groups->{flag}{g8} = ['legacy',
%{ $groups },
version => '1.0',
title => 'MSX graph',
- category => 'legacy/msx',
+ category => 'legacy/graph/msx',
intro => join("\n",
'Resulting selection',
'of equivalent Unicode characters',
"when the graph key is pressed on an MSX home computer",
"(International model such as Toshiba HX10 or Phillips NMS 8245).",
+ 'Similar to PETSCII,',
+ 'ATASCII, and',
+ 'modern Unicode.',
'See also letters and symbols',
"from pressing code.",
),