git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unicode: more digestible page showing common digraphs
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index b62b57774b9f85a425dc9b84ed6b3b26e2c62c0f..ab04efd454afcc3b26bae5b94a8ebd5fc3193448 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-57,9
+57,13
@@
for my $c1group (@chars) {
print '<td>';
next;
}
print '<td>';
next;
}
- my ($codepoint, $name, $prop, $script) = @{ $di->{$mnem} };
+ if (ref $di->{$mnem} ne 'ARRAY') {
+ printf '<td class="X Xr" title="%s">', quote($mnem);
+ next;
+ }
+ 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);
utf8::upgrade($glyph); # prevent latin1 output
my $desc = $mnem . ($name && " ($name)");
my @class = ('X', grep {$_} $prop, $script);
@@
-92,6
+96,7
@@
print "</table>\n";
<td class="X Latin">latin
<td class="X Hebrew">hebrew
<td class="X Arabic">arabic
<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>
<td class="X Hiragana">japanese
<td class="X Bopomofo">chinese
</table>