From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 16 Sep 2008 02:50:19 +0000 (+0000)
Subject: digraphs: put _ at the left of table
X-Git-Tag: v1.2~35
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/777198d5e254e56477f141b5ee693b5b6be524e6

digraphs: put _ at the left of table

While underscore is at the end by ASCII ordering, it's only character
left after the letters, and groups are certainly more balanced if it's
put at the beginning with other punctuation.
---

diff --git a/digraphs.plp b/digraphs.plp
index d339b09..81944b2 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -41,7 +41,7 @@ my @chars = (
 	['A'..'M'], ['N'..'Z'],
 	['a'..'m'], ['n'..'z'],
 );
-my @chars2 = (@chars, ['_']);  # trailing character (extended set)
+my @chars2 = (['_'], @chars);  # trailing character (extended set)
 
 print '<table><col>';
 print qq'<colgroup span="$_">' for map {scalar @$_} @chars2;