From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 8 Feb 2016 04:37:59 +0000 (+0100)
Subject: termcol: support image for table palettes
X-Git-Tag: v1.9~33
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/f24787532d73d83838e5ba0fd95e6d648c7696d7

termcol: support image for table palettes
---

diff --git a/termcol.plp b/termcol.plp
index 850ff83..7e408e6 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -134,6 +134,12 @@ for my $term (@termlist) {
 			print '<tr>';
 			print colcell(@$_) for @$row;
 		}
+
+		my $width = scalar @{ $table->[0] };
+		my @imgpal = map { [ @{$_}[1 .. 3] ] } map { @{$_} } @{$table};
+		for (@draw) {
+			print "<tr><td colspan=$width>", img_egapal(\@imgpal, @{$_});
+		}
 		print "</table>\n\n";
 	}