termcol: specific ?order option (=ansi replaces ?v)
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 21 Dec 2015 00:07:01 +0000 (01:07 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 5 Jan 2016 00:05:07 +0000 (01:05 +0100)
Preparation to support other orders.

termcol.plp

index 92bc4f8..0068a78 100644 (file)
@@ -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}
                );