termcol: trim 8-colour xcolors palettes
authorMischa POSLAWSKY <perl@shiar.org>
Tue, 2 May 2017 19:42:02 +0000 (21:42 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 29 May 2017 17:23:11 +0000 (19:23 +0200)
tools/mktermcol-xcolor

index 4dba0bc..74bed79 100755 (executable)
@@ -46,6 +46,8 @@ for my $path (@ARGV) {
                next;
        }
 
+       splice @pal, 8 if "@pal[0..7]" eq "@pal[8..15]";
+
        say qq("$name" => {);
        say qq(\ttitle => '$name',);
        say qq(\tparent => 'cga',);