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?hp=ef1048178fa3bc0d43f4e2bbbee58530f8b0e55c

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;