From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 May 2017 19:31:47 +0000 (+0200)
Subject: termcol: distinguish separate tbody for shiar32 greyscale rows
X-Git-Tag: v1.10~31
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/881b5ab9f702bbdeb2526f93d2512cfa12e405bf

termcol: distinguish separate tbody for shiar32 greyscale rows
---

diff --git a/termcol.inc.pl b/termcol.inc.pl
index 0aa2241..bf0001b 100644
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -282,6 +282,7 @@ use Shiar_Sheet::Colour 1.05;
 			[qw(         0 6C71C4:3J         0 )],
 			[qw( 362747:1K 75507B:3K F06FCB:5K )],
 			[qw(         0 D33662:3L         0 )],
+			undef,
 			[qw( 000000:0  686868:2  CCCCCC:4  )],
 			[qw( 444444:1  B0B0B0:3  FFFFFF:5  )],
 		],
diff --git a/termcol.plp b/termcol.plp
index 2c16fe9..bd9fd53 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -134,6 +134,10 @@ sub coltable {
 		say '<table class="color mapped">';
 		say sprintf '<caption>%s</caption>', $caption;
 		for my $row (@$table) {
+			if (!$row) {
+				say '<tbody>';
+				next;
+			}
 			print '<tr>';
 			print colcell(ref $_ ? @$_ : $_ ? reverse split /:/ : undef) for @$row;
 		}