tfoot td,
thead td {
border: 0;
- background: transparent !important;
+ background: transparent;
}
.glyphs thead td {
width: auto; /* no glyph cells in header */
border-top: 1px solid #888;
}
+/* colour map */
+
+table.color th {
+ border: 1px solid #555;
+ font-weight: normal;
+ padding: 0 1ex;
+}
+table.color th ~ td {
+ font-family: monospace;
+}
+
/* digraphs map */
table.dimap {
my $sample = [ qw(#000 #FFF) ];
($name, $sample) = @$name if ref $name eq 'ARRAY';
- my $out = sprintf('<td title="%s" style="%s">%s',
+ my $out = sprintf('<th title="%s" style="%s">%s',
join(',', map { int } @$col),
- "background:$css; color:$inverse; padding:0 1ex",
+ "background:$css; color:$inverse",
$name,
);
- $out .= sprintf '<td style="%s"><code>%s</code>', "background:$_; color:$css", $minhex
+ $out .= sprintf '<td style="%s">%s', "background:$_; color:$css", $minhex
for @$sample;
return "$out\n";
}
) if $info->{href} or $info->{title};
if (my $mapinfo = $info->{rgbmap}) {
- print '<table class="mapped">'."\n";
+ print '<table class="color mapped">'."\n";
printf "<caption>%s</caption>\n", $caption;
print coltable_hsv(@{$mapinfo});
print "</table>\n\n";
$colours = [ map { $colours->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
}
- print '<table>', "\n";
+ print '<table class=color>', "\n";
printf "<caption>%s</caption>\n", $caption;
for my $num (0 .. $#{$colours}) {
my ($rgb, $name) = split /:/, $colours->[$num], 3;