X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/70888ead921575f20a2692dfcb18d171e1b269e0..0c4ea1b3f69fa7595057e3744f6d46c1ce7f3e46:/termcol.plp?ds=sidebyside
diff --git a/termcol.plp b/termcol.plp
index 32a7356..e544bf7 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -58,12 +58,12 @@ sub colcell {
my $sample = [ qw(#000 #FFF) ];
($name, $sample) = @$name if ref $name eq 'ARRAY';
- my $out = sprintf('
%s',
+ my $out = sprintf(' | %s',
join(',', map { int } @$col),
- "background:$css; color:$inverse; padding:0 1ex",
+ "background:$css; color:$inverse",
$name,
);
- $out .= sprintf ' | %s ', "background:$_; color:$css", $minhex
+ $out .= sprintf ' | %s', "background:$_; color:$css", $minhex
for @$sample;
return "$out\n";
}
@@ -83,7 +83,7 @@ for my $term (@termlist) {
) if $info->{href} or $info->{title};
if (my $mapinfo = $info->{rgbmap}) {
- print ''."\n";
+ print ''."\n";
printf "%s\n", $caption;
print coltable_hsv(@{$mapinfo});
print " \n\n";
@@ -94,7 +94,7 @@ for my $term (@termlist) {
$colours = [ map { $colours->[$_] =~ s/:|$/:$_/r } @{$reorder} ];
}
- print '', "\n";
+ print '', "\n";
printf "%s\n", $caption;
for my $num (0 .. $#{$colours}) {
my ($rgb, $name) = split /:/, $colours->[$num], 3;
|