termcol: omit backgrounded sample cells for msx transparancy
authorMischa POSLAWSKY <perl@shiar.org>
Sun, 1 Nov 2015 16:22:58 +0000 (17:22 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 5 Jan 2016 00:05:07 +0000 (01:05 +0100)
termcol.plp

index c58670c..acfe2be 100644 (file)
@@ -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);
                }