termcol: fix reordered named descriptions

[sheet.git] / termcol.plp

diff --git a/termcol.plp b/termcol.plp
index 92bc4f87d3d5aa69fc2d04ade2c3a200e45308ef..b79f8410d931900b0765bcc2cb8233e2d6a7f3c8 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -128,7 +128,7 @@ for my $term (@termlist) {
        }
 
        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 +162,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;
 }