termcol: omit backgrounded sample cells for msx transparancy

diff --git a/termcol.plp b/termcol.plp
index c58670c19e2c98556862f41f87d7bef2b5eb71fa..acfe2be7105de00e55574b227b35d6c95e452607 100644 (file)
--- a/termcol.plp
+++ b/termcol.plp
@@ -91,6 +91,7 @@ for my $term (@termlist) {
                for my $num (0 .. $#{$colours}) {
                        my ($rgb, $name) = split /:/, $colours->[$num], 3;
                        $name ||= $num;
+                       $name = [ $name, [] ] if $term =~ /^msx/ and !$num;
                        $name = [ $name, ['#333'] ] if $term eq 'xkcd';
                        print '<tr>', colcell($name, $rgb);
                }