git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
termcol: declare and include cgarne
[sheet.git]
/
termcol.plp
diff --git
a/termcol.plp
b/termcol.plp
index 92bc4f87d3d5aa69fc2d04ade2c3a200e45308ef..850ff83e9ccaf98bc67aef81593b70f592d77088 100644
(file)
--- 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 )],
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{$_} } : $_ } @{$_}
legacy => [qw( c64 msx2 mac2 risc arnegame cpc )],
);
@{$_} = map { $termgroup{$_} ? @{ $termgroup{$_} } : $_ } @{$_}
@@
-127,8
+127,18
@@
for my $term (@termlist) {
print "</table>\n\n";
}
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}) {
if (my $palette = $info->{list}) {
- my $order = $get{
v} && 'ansi
order';
+ 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}
);
@@
-162,7
+172,7
@@
for my $term (@termlist) {
sub colorder {
my ($palette, $reorder) = @_;
sub colorder {
my ($palette, $reorder) = @_;
- return [ map { $palette->[$_] =~ s/:
|$/:$_/r } @{$reorder} ];
+ return [ map { $palette->[$_] =~ s/:
(?![^:])|$/:$_/r } @{$reorder} ]
if $reorder;
return $palette;
}
if $reorder;
return $palette;
}