keyboard/altgr: atari graphics (atascii)

[sheet.git] / keyboard / altgr / msx-graph.eng.inc.pl

diff --git a/keyboard/altgr/msx-graph.eng.inc.pl b/keyboard/altgr/msx-graph.eng.inc.pl
index 3bcf5d1b35d220276baeb1019e6a02d4d4a412f2..dd4a5b55c29f870a7923250816e938fe09a92e0a 100644 (file)
--- 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 <a href="/unicode">selection</a>',
                'of equivalent <a href="/charset">Unicode</a> characters',
                "when the <em>graph</em> key is pressed on an MSX home computer",
                "(International model such as Toshiba HX10 or Phillips NMS 8245).",
+               'Similar to <a href="/keyboard/altgr/c64">PETSCII</a>,',
+               '<a href="/keyboard/altgr/atari">ATASCII</a>, and',
+               '<a href="/keyboard/altgr/unigraph">modern Unicode</a>.',
                'See also <a href="/keyboard/altgr/msx">letters and symbols</a>',
                "from pressing <em>code</em>.",
        ),