X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/16b530ef1bda793f687168797b982d2c504efc81..1b74f2fe18e42ec7acd07793fc45da6c0849fcc9:/termcol.plp

diff --git a/termcol.plp b/termcol.plp
index 92bc4f8..850ff83 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -24,7 +24,7 @@ my %termgroup = (
 	default => [qw( ansi xkcd ansi88 )],
 	more    => [qw( ansi mirc legacy ansi256 )],
 	msx     => [qw( msx1 msx2 arnejmp )],
-	ansi    => [qw( cga xterm tango app html )],
+	ansi    => [qw( cga xterm tango app html cgarne )],
 	legacy  => [qw( c64 msx2 mac2 risc arnegame cpc )],
 );
 @{$_} = map { $termgroup{$_} ? @{ $termgroup{$_} } : $_ } @{$_}
@@ -127,8 +127,18 @@ for my $term (@termlist) {
 		print "</table>\n\n";
 	}
 
+	if (my $table = $info->{table}) {
+		print '<table class="color mapped">'."\n";
+		printf "<caption>%s</caption>\n", $caption;
+		for my $row (@$table) {
+			print '<tr>';
+			print colcell(@$_) for @$row;
+		}
+		print "</table>\n\n";
+	}
+
 	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 +172,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;
 }