digraphs: indicate direction order

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index c5184a40296c60096f9411475f6de17b642d1f72..cec6406e3caf6a96178ef829ce525869a6f944a0 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -47,11 +47,11 @@ my @chars = (
 );
 my @chars2 = (['_'], @chars);  # trailing character (extended set)
 
-print '<table><col>';
+print '<table class="glyphs dimap"><col>';
 print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;
 print "</colgroup><col>\n";
 for my $section (qw{thead tfoot}) {
-       print "<$section><tr><th>&nbsp;";
+       print "<$section><tr><th>↳";
        print '<th>', quote($_) for map {@$_} @chars2;
        print "<th>&nbsp;\n";
 }
@@ -88,7 +88,7 @@ for my $c1group (@chars) {
 print "</table>\n";
 :>
 <div id="legend">
-       <table><tr>
+       <table class="glyphs"><tr>
        <td class="X Cc">control
        <td class="X Zs"><span>spacing</span>
        <td class="X Mn">modifier
@@ -109,7 +109,7 @@ print "</table>\n";
        <td class="X Bopomofo">chinese
        </table>
 
-       <table><tr>
+       <table class="glyphs"><tr>
        <td class="X">unicode
        <td class="X Xl">latin1
        <td class="X Xa">ascii