termcol: scalar colour shorthand

[sheet.git] / tools / mktermcol-xcolor

diff --git a/tools/mktermcol-xcolor b/tools/mktermcol-xcolor
index f731e5a7048a248eea697134402e7fb0d9ff3036..112dd833a6cebff8004623f6b075ff18d8d7b32b 100755 (executable)
--- a/tools/mktermcol-xcolor
+++ b/tools/mktermcol-xcolor
@@ -7,8 +7,11 @@ say 'use strict;';
 say '+{';
 my @names;
 
-for my $path (glob 'data/xcolors/themes/*') {
-       open my $theme, '<', $path;
+for my $path (@ARGV) {
+       open my $theme, '<', $path or do {
+               warn "could not open $path: $!\n";
+               next;
+       };
        (my $name = $path) =~ s{.*/}{};  # basename
 
        my (%pal, @pal);