termcol: append greyscale ramps to colour tables
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 1 Nov 2015 02:34:10 +0000 (03:34 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 10 Nov 2015 21:24:03 +0000 (22:24 +0100)
termcol.plp

index fd2bc9b..60afba6 100644 (file)
@@ -281,14 +281,13 @@ sub coltable_hsv {
                $out .= '<tr>';
                $out .= colcell(@$_) for map { $_->[$h] } map { @{$_} } @colmap;
        }
-       $out .= "</table>\n\n";
 
        $offset += $dim ** 3;
        $greymap{$offset++} = $_ for @{$greyramp};
 
-       $out .= '<table>';
+       $out .= '<tbody>';
        my $col = 0;
-       my $colbreak = keys(%greymap) / 2;  # split into 2 rows
+       my $colbreak = scalar map { @$_ } @colmap;  # same width as hue rows
        for my $num (sort { $greymap{$a} <=> $greymap{$b} } keys %greymap) {
                $out .= '<tr>' unless $col++ % $colbreak;
                $out .= colcell($num, ($greymap{$num}) x 3);