git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perl: silence warning about skipping dropped features
[sheet.git]
/
Shiar_Sheet
/
ImagePrep.pm
diff --git
a/Shiar_Sheet/ImagePrep.pm
b/Shiar_Sheet/ImagePrep.pm
index 2bd4cd9e2448add5354e8ec000635350a96120c5..04a4270f5ac20cb87ce2be362bbfdd8d81bf3473 100644
(file)
--- a/
Shiar_Sheet/ImagePrep.pm
+++ b/
Shiar_Sheet/ImagePrep.pm
@@
-31,14
+31,15
@@
sub dimensions ($imgpath) {
return split /\s/, $xy, 3;
}
return split /\s/, $xy, 3;
}
-sub generate ($imgpath, $thumbpath, $
cmds
) {
+sub generate ($imgpath, $thumbpath, $
opt
) {
if (not -e $$imgpath) {
return !-e $thumbpath || unlink $thumbpath;
}
if (not -e $$imgpath) {
return !-e $thumbpath || unlink $thumbpath;
}
- $cmds //= [];
- $imgpath->convert($thumbpath, $cmds, '300x200') and # low-res cover
+ my @cmds = @{$opt->{convert} // []};
+ unshift @cmds, -area => $_ for $opt->{crop32} || ();
+ $imgpath->convert($thumbpath, \@cmds, '300x200') and # low-res cover
$imgpath->convert($thumbpath =~ s/\.jpg$/.webp/r,
$imgpath->convert($thumbpath =~ s/\.jpg$/.webp/r,
- [@
{$cmds}
, -quality => 40], '600x400' # higher dpi tradeoff
+ [@
cmds
, -quality => 40], '600x400' # higher dpi tradeoff
);
}
);
}