From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 31 Oct 2015 19:53:54 +0000 (+0100)
Subject: termcol: group h/s/v columns by saturation level
X-Git-Tag: v1.9~99
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/f7dc0c4618952f5a64b0bf3097b115d0c799684e?ds=sidebyside

termcol: group h/s/v columns by saturation level
---

diff --git a/termcol.plp b/termcol.plp
index 16b3dfe..74bcbc4 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -281,7 +281,8 @@ for my $r (0 .. 5) {
 }
 
 {
-	print '<table>';
+	print '<table class=mapped>';
+	printf '<colgroup span=%d>', 3 * @{$_} for @colmap;
 	for my $h (0 .. 30) {
 		print '<tr>';
 		print colcell(@$_) for map { $_->[$h] } map { @{$_} } @colmap;