die "Cannot open palette data: $_\n" for $@ || $! || ();
sub colcell {
- my $name = shift // return "<td colspan=3>\n";
+ my $name = shift // return "<td>\n";
my $col = Shiar_Sheet::Colour->new(@_);
my $minhex = $col->rgb24;
my $css = '#' . $col->rgb48;
my $sample = [ qw(#000 #FFF) ];
($name, $sample) = @$name if ref $name eq 'ARRAY';
- my $out = sprintf('<th title="%s" style="%s">%s',
+ my $out = sprintf('<td title="%s" style="%s">%s',
join(',', map { int } @$col),
"background:$css; color:$inverse",
$name,
);
- $out .= sprintf '<td style="%s">%s', "background:$_; color:$css", $minhex
- for @$sample;
+ $out .= sprintf('<samp style="%s"><small>%s</small></samp>',
+ "background:$_; color:$css", $minhex
+ ) for @$sample;
return "$out\n";
}
}
my $out = '';
- $out .= sprintf '<colgroup span=%d>', 3 * @{$_} for @colmap;
+ $out .= sprintf '<colgroup span=%d>', scalar @{$_} for @colmap;
my $huerow = $colmap[0][0]; # first {$_} map { @{$_} } @colmap;
for my $h (grep { $huerow->[$_] } 0 .. $#{$huerow}) {
$out .= '<tr>';