print "</table>\n\n";
}
+ if (my $table = $info->{table}) {
+ print '<table class="color mapped">'."\n";
+ printf "<caption>%s</caption>\n", $caption;
+ for my $row (@$table) {
+ print '<tr>';
+ print colcell(@$_) for @$row;
+ }
+ print "</table>\n\n";
+ }
+
if (my $palette = $info->{list}) {
- my $colours = colorder($palette, $get{v} && $info->{ansiorder});
+ my $order = $get{order} && $get{order}.'order';
+ my $colours = colorder($palette,
+ $info->{$order} // $palettes->{ $info->{parent} }->{$order}
+ );
my $rows = 8;
my $columns = ceil(@{$palette} / $rows);
}
for (@draw) {
- my $imgpal = colorder($palette, $info->{ansiorder});
+ my $imgpal = colorder($palette,
+ $info->{ansiorder} // $palettes->{ $info->{parent} }->{ansiorder}
+ );
print "<tr><td colspan=$columns>", img_egapal($imgpal, @{$_});
}
print "</table>\n\n";
sub colorder {
my ($palette, $reorder) = @_;
- return [ map { $palette->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
+ return [ map { $palette->[$_] =~ s/:(?![^:])|$/:$_/r } @{$reorder} ]
if $reorder;
return $palette;
}