} || $@;
}
-for my $term (@termlist) {
+sub coltable {
+ my ($term) = @_;
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',
print '<tr>';
print colcell(@$_) for @$row;
}
+
+ my $width = scalar @{ $table->[0] };
+ my @imgpal = map { [ @{$_}[1 .. 3] ] } map { @{$_} } @{$table};
+ for (@draw) {
+ print "<tr><td colspan=$width>", img_egapal(\@imgpal, @{$_});
+ }
print "</table>\n\n";
}
return $out;
}
+coltable($_) for @termlist;
:></div>
<hr>