From 9b02fb487135a31bcf0ed3e637ea910fa0f177f8 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 11 May 2009 19:10:14 +0000
Subject: [PATCH] charset: minor unicode range fixes

Some miscalculations leading to cells having too much width allocated.
Also define all columns so the number is explicit (making the table
validate(able)).
---
 charset-unicode.inc.pl | 6 +++---
 charset.plp            | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/charset-unicode.inc.pl b/charset-unicode.inc.pl
index 99172bb..3496c64 100644
--- a/charset-unicode.inc.pl
+++ b/charset-unicode.inc.pl
@@ -23,7 +23,7 @@ my %uniblock = (
 	0x07C, '<td colspan="4" class="X L African">n\'ko',
 	0x080, '<td colspan="4" class="X Xr L Hebrew">samaritan',
 	0x084, '<td colspan="2" class="X Xr L Aramaic">manda',
-	0x086, '<td colspan="12" class="">reserved',
+	0x086, '<td colspan="10" class="">reserved',
 	0x090, '<td colspan="8" class="X L Brahmic">devanagari',
 	0x098, '<td colspan="8" class="X L Brahmic">bengali',
 	0x0A0, '<td colspan="8" class="X L Brahmic">gurmukhi',
@@ -56,9 +56,9 @@ my %uniblock = (
 	0x180, '<td colspan="11" class="X L Aramaic">mongolian',
 	0x18B, '<td colspan="5" class="X Xr L Syllabic">canadian+',
 	0x190, '<td colspan="5" class="X L Brahmic">limbu',
-	0x195, '<td colspan="4" class="X L Brahmic">tai le',
+	0x195, '<td colspan="3" class="X L Brahmic">tai le',
 	0x198, '<td colspan="6" class="X L Brahmic">new tai lue',
-	0x19E, '<td colspan="2" class="X L Brahmic Khmer" title="khmer symbols">km',
+	0x19E, '<td colspan="2" class="X L Brahmic Khmer" title="khmer symbols">khmer',
 	0x1A0, '<td colspan="2" class="X L Brahmic">lontara',
 	0x1A2, '<td colspan="9" class="X Xr L Brahmic">tai tham',
 	0x1AB, '<td colspan="5" class="">reserved',
diff --git a/charset.plp b/charset.plp
index a3e845d..bc2a1ea 100644
--- a/charset.plp
+++ b/charset.plp
@@ -115,7 +115,7 @@ my @nibble = (0..9, 'A'..'F');
 for my $row (@request) {
 	printf '<li><table class="glyphs%s">', !$row->{cell} && ' charmap';
 	printf '<caption>%s</caption>', $row->{set};
-	print '<col>';
+	print '<col>' x 17;
 	for my $section (qw{thead}) {
 		print "<$section><tr><th>↱";
 		print '<th>', $_ for @nibble;
-- 
2.30.0