unicode: more digestible page showing common digraphs

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 075a398ceb6bce8faf7b4424433e44a497f2557b..ab04efd454afcc3b26bae5b94a8ebd5fc3193448 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -61,9 +61,9 @@ for my $c1group (@chars) {
                                printf '<td class="X Xr" title="%s">', quote($mnem);
                                next;
                        }
-                       my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
+                       my ($codepoint, $name, $prop, $script, $string) = @{ $di->{$mnem} };
 
-                       my $glyph = chr $codepoint;
+                       my $glyph = $string || chr $codepoint;
                        utf8::upgrade($glyph);  # prevent latin1 output
                        my $desc = $mnem . ($name && " ($name)");
                        my @class = ('X', grep {$_} $prop, $script);
@@ -96,6 +96,7 @@ print "</table>\n";
        <td class="X Latin">latin
        <td class="X Hebrew">hebrew
        <td class="X Arabic">arabic
+       <td class="X Hangul">korean
        <td class="X Hiragana">japanese
        <td class="X Bopomofo">chinese
        </table>