X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d59162b2f180b322e6b4f245b44255d3fa9cf724..1817da53c95ec932b3b5633649661ef1b17f0c55:/termcol.plp

diff --git a/termcol.plp b/termcol.plp
index 6cc6fea..b79f841 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -127,13 +127,14 @@ for my $term (@termlist) {
 		print "</table>\n\n";
 	}
 
-	if (my $colours = $info->{list}) {
-		if (my $reorder = $info->{ansiorder} and $get{v}) {
-			$colours = [ map { $colours->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
-		}
+	if (my $palette = $info->{list}) {
+		my $order = $get{order} && $get{order}.'order';
+		my $colours = colorder($palette,
+			$info->{$order} // $palettes->{ $info->{parent} }->{$order}
+		);
 
 		my $rows = 8;
-		my $columns = ceil(@{$colours} / $rows);
+		my $columns = ceil(@{$palette} / $rows);
 
 		print '<table class=color>', "\n";
 		printf "<caption>%s</caption>\n", $caption;
@@ -149,11 +150,23 @@ for my $term (@termlist) {
 			}
 		}
 
-		print "<tr><td colspan=$columns>", img_egapal(\@{$colours}, @{$_}) for @draw;
+		for (@draw) {
+			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} ]
+		if $reorder;
+	return $palette;
+}
+
 sub coltable_hsv {
 	my ($dim, $rgbval, $greyramp) = @_;