termcol: specific ?order option (=ansi replaces ?v)

Preparation to support other orders.

diff --git a/termcol.plp b/termcol.plp
index 92bc4f87d3d5aa69fc2d04ade2c3a200e45308ef..0068a78d7b5c73f998214891b79f52b53c10983b 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -128,7 +128,7 @@ for my $term (@termlist) {
        }
 
        if (my $palette = $info->{list}) {
        }
 
        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}
                );
                my $colours = colorder($palette,
                        $info->{$order} // $palettes->{ $info->{parent} }->{$order}
                );