word: webp images at double resolution

[sheet.git] / tools / mkwordthumb

diff --git a/tools/mkwordthumb b/tools/mkwordthumb
index 2404324d415815fffdb0e570f5fcf511d05ee3ab..8e7909f5daf0fe2be762cd82c7143603ebf3cedf 100755 (executable)
--- a/tools/mkwordthumb
+++ b/tools/mkwordthumb
@@ -6,7 +6,7 @@ use Shiar_Sheet::ImagePrep;
 use Shiar_Sheet::DB;
 use JSON ();
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 
 my $db = Shiar_Sheet::DB->connect;
 my %filter = @ARGV ? (id => shift) : ();
@@ -17,6 +17,8 @@ while (my $row = $query->hash) {
        eval {
                my $meta = eval { JSON->new->decode($row->{image} // '{}') }
                        or die ["Invalid JSON metadata in image column.", $@];
-               $image->convert("data/word/en/$row->{id}.jpg", $meta->{convert});
+               my $basename = "data/word/en/$row->{id}";
+               $image->convert("$basename.jpg",  $meta->{convert});
+               $image->convert("$basename.webp", $meta->{convert}, '600x400');
        } or warn "$row->{id}: @{$@}";
 }