X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/16b530ef1bda793f687168797b982d2c504efc81..213346e868dc34cd93c4510b4d93fe44a2cbbbf3:/termcol.plp
diff --git a/termcol.plp b/termcol.plp
index 92bc4f8..3289deb 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -127,8 +127,18 @@ for my $term (@termlist) {
print "\n\n";
}
+ if (my $table = $info->{table}) {
+ print '
'."\n";
+ printf "%s\n", $caption;
+ for my $row (@$table) {
+ print '';
+ print colcell(@$_) for @$row;
+ }
+ print "
\n\n";
+ }
+
if (my $palette = $info->{list}) {
- my $order = $get{v} && 'ansiorder';
+ my $order = $get{order} && $get{order}.'order';
my $colours = colorder($palette,
$info->{$order} // $palettes->{ $info->{parent} }->{$order}
);
@@ -162,7 +172,7 @@ for my $term (@termlist) {
sub colorder {
my ($palette, $reorder) = @_;
- return [ map { $palette->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
+ return [ map { $palette->[$_] =~ s/:(?![^:])|$/:$_/r } @{$reorder} ]
if $reorder;
return $palette;
}