}
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}
);
sub colorder {
my ($palette, $reorder) = @_;
- return [ map { $palette->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
+ return [ map { $palette->[$_] =~ s/:(?![^:])|$/:$_/r } @{$reorder} ]
if $reorder;
return $palette;
}