From f7dc0c4618952f5a64b0bf3097b115d0c799684e Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 31 Oct 2015 20:53:54 +0100
Subject: [PATCH] termcol: group h/s/v columns by saturation level

---
 termcol.plp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
2.30.0