keyboard/altgr: automatically generate thumbnails from source images
[sheet.git] / tools / mkimgthumb
index c672d3fdb6761fadc4768e42f0e7f1f904534dfa..e9d6eb2159286003a9ccc6c28412334d2d01ee70 100755 (executable)
@@ -27,9 +27,13 @@ for (keys %opt) {
        push @ffs, my $ff = [$_];
        my $r = $opt{$_};
        push @{$ff}, -quality => $1 if $r =~ s/@(\d+)//;
-       push @{$ff}, -resize => "$r^", -extent => $r;
+       push @{$ff}, -resize => !/\dx\d+$/ ? $_ : ("$_^", -extent => $_)
+               for split / /, $r;
 }
 
+my $target = '..';
+$target = pop @ARGV if @ARGV >= 2 and -d $ARGV[-1];
+
 my $failcount = 0;
 
 for my $src (@ARGV) {
@@ -56,7 +60,7 @@ for my $src (@ARGV) {
                for (@ffs) {
                        my ($ff, @ffcmds) = @{$_};
                        print " $ff";
-                       $image->convert("../$name.$ff", [@cmds, @ffcmds]);
+                       $image->convert("$target/$name.$ff", [@cmds, @ffcmds]);
                }
                1;
        } or do {