git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: common tool to dump static perl include
[sheet.git]
/
tools
/
mktermcol-xcolor
diff --git
a/tools/mktermcol-xcolor
b/tools/mktermcol-xcolor
index 596bb56d82789a8defde29e7a970048dff474c7b..7f39c80c4ca6332805c108d80c0c362da8c24623 100755
(executable)
--- a/
tools/mktermcol-xcolor
+++ b/
tools/mktermcol-xcolor
@@
-1,8
+1,9
@@
#!/usr/bin/env perl
#!/usr/bin/env perl
-use 5.01
0
;
+use 5.01
4
;
use Shiar_Sheet::Colour 1.05;
use Shiar_Sheet::Colour 1.05;
+say "# automatically generated by $0";
say 'use strict;';
say '+{';
my @names;
say 'use strict;';
say '+{';
my @names;
@@
-46,6
+47,8
@@
for my $path (@ARGV) {
next;
}
next;
}
+ splice @pal, 8 if "@pal[0..7]" eq "@pal[8..15]";
+
say qq("$name" => {);
say qq(\ttitle => '$name',);
say qq(\tparent => 'cga',);
say qq("$name" => {);
say qq(\ttitle => '$name',);
say qq(\tparent => 'cga',);