X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e476c3bfbcc78e9f667d83e9b35da5d55c7a6b42..f1ad2d8f64690870d6bb4977b04202083797d6a2:/termcol.plp diff --git a/termcol.plp b/termcol.plp index a090fc7..8e61fe0 100644 --- a/termcol.plp +++ b/termcol.plp @@ -115,6 +115,8 @@ sub coltable { } ref $info eq 'HASH' or return; + my $order = $get{order} && $get{order}.'order'; + my $reorder = $info->{$order} // $palettes->{ $info->{parent} }->{$order}; my $caption = $info->{name} // $term; $caption = sprintf('<%s %s>%s%1$s>', @@ -134,34 +136,33 @@ sub coltable { print coltable_hsv(@{$_}) for $info->{rgbmap} || (); if (my $table = $info->{table}) { - for my $row (@$table) { - if (!$row) { - say '
'; - next; + $table = [ @{$table}[@{$reorder}] ] if $reorder; + + for my $row (@$table) { + if (!$row) { + say ''; + next; + } + print '