From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 6 Jan 2009 00:18:19 +0000 (+0000)
Subject: digraphs: indicate direction order
X-Git-Tag: v1.2~6
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/e48187f517b4d15cc417c5306a21fa5e40bc9ded

digraphs: indicate direction order

Put an downwards-right arrow at the row/column index, hopefully hinting
to which axis is to be followed first.  As the arrow goes down first,
hopefully it's clear the vertical axis contains the most significant
(first) character.
---

diff --git a/digraphs.plp b/digraphs.plp
index 6193b97..cec6406 100644
--- 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";
 }