From 881b5ab9f702bbdeb2526f93d2512cfa12e405bf Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 2 May 2017 21:31:47 +0200
Subject: [PATCH 1/1] termcol: distinguish separate tbody for shiar32 greyscale
 rows

---
 termcol.inc.pl | 1 +
 termcol.plp    | 4 ++++
 2 files changed, 5 insertions(+)

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