digraphs: indicate direction order

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 6193b97d07ffc7dab0dd6a532ea65609f02c0cd1..cec6406e3caf6a96178ef829ce525869a6f944a0 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -51,7 +51,7 @@ 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";
 }