-sub colcell {
- my $id = shift;
- my @rgb = @_ >= 3 ? @_ : (map {hex} $_[0] =~ /(..)/g);
- my $rgb24 = '';
- $rgb24 .= sprintf '%X', min($_ / 17 + .5, 15) for @rgb[0..2];
- my $rgb48 = '';
- $rgb48 .= sprintf '%02X', $_ for @rgb[0..2];
- my $inverse = sprintf('%X', luminance(@rgb)/255 < .3 ? 12 : 0) x 3;
- return sprintf '<td style="%s; padding:0 1ex">%s<td style="%s">%s<td style="%s">%s',
- "background:#$rgb48; color:#$inverse",
- $id,
- "background:#000; color:#$rgb48",
- $rgb24,
- "background:#FFF; color:#$rgb48",
- $rgb24,
+my @termlist = qw( cga xterm tango app html xkcd );
+push @termlist, qw( c64 msx2 mac2 risc arnegame cpc ) if exists $get{v};
+push @termlist, qw( ansi88 );
+push @termlist, qw( ansi256 ) if $ENV{PATH_INFO} =~ /256/;
+
+for my $term (@termlist) {
+ my $info = $palettes->{$term};
+ ref $info eq 'HASH' or next;
+ my $caption = $info->{name} // $term;
+ $caption = sprintf('<%s %s>%s</%1$s>',
+ $info->{href} ? 'a' : 'span',
+ join(' ',
+ map { sprintf '%s="%s"', $_, $info->{$_} }
+ grep { defined $info->{$_} }
+ qw( href title )
+ ),
+ $caption,
+ ) if $info->{href} or $info->{title};
+
+ if (my $mapinfo = $info->{rgbmap}) {
+ print '<table class="mapped">'."\n";
+ printf "<caption>%s</caption>\n", $caption;
+ print coltable_hsv(@{$mapinfo});
+ print "</table>\n\n";
+ }
+
+ if (my $colours = $info->{list}) {
+ if (my $reorder = $info->{ansiorder} and $get{v}) {
+ $colours = [ map { $colours->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
+ }
+
+ print '<table>', "\n";
+ printf "<caption>%s</caption>\n", $caption;
+ for my $num (0 .. $#{$colours}) {
+ my ($rgb, $name) = split /:/, $colours->[$num], 3;
+ $name ||= $num;
+ $name = [ $name, ['#333'] ] if $term eq 'xkcd';
+ print '<tr>', colcell($name, $rgb);
+ }
+ print "</table>\n\n";
+ }