termcol: reindent table handling code

diff --git a/termcol.plp b/termcol.plp
index a090fc7ffe7a36ee3583b570abf1863d92cf338d..3880a62ecd46bca9ff202616ba3ecd1032df0661 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -134,24 +134,24 @@ sub coltable {
                print coltable_hsv(@{$_}) for $info->{rgbmap} || ();
 
                if (my $table = $info->{table}) {
                print coltable_hsv(@{$_}) for $info->{rgbmap} || ();
 
                if (my $table = $info->{table}) {

-               for my $row (@$table) {
-                       if (!$row) {
-                               say '<tbody>';
-                               next;
+                       for my $row (@$table) {
+                               if (!$row) {
+                                       say '<tbody>';
+                                       next;
+                               }
+                               print '<tr>';
+                               print colcell(ref $_ ? @$_ : $_ ? reverse split /:/ : undef) for @$row;

                        }
                        }

-                       print '<tr>';
-                       print colcell(ref $_ ? @$_ : $_ ? reverse split /:/ : undef) for @$row;
-               }

 
 

-       if (@draw) {
-               my $width = scalar @{ $table->[0] };
-               my @imgpal = map {
-                       [ ref $_ ? @{$_}[1 .. 3] : map {hex} /(..)(..)(..)/ ]
-               } map { @{$_} } @{$table};
-               for (@draw) {
-                       print "<tr><td colspan=$width>", img_egapal(\@imgpal, @{$_});
-               }
-       }
+                       if (@draw) {
+                               my $width = scalar @{ $table->[0] };
+                               my @imgpal = map {
+                                       [ ref $_ ? @{$_}[1 .. 3] : map {hex} /(..)(..)(..)/ ]
+                               } map { @{$_} } @{$table};
+                               for (@draw) {
+                                       print "<tr><td colspan=$width>", img_egapal(\@imgpal, @{$_});
+                               }
+                       }

                }
 
                say "</table>\n";
                }
 
                say "</table>\n";