swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

use leaflet lib

Browse source
This commit is contained in:
Swrup 2022-04-08 10:39:20 +02:00
parent ce7bb9d386
commit ccba00b2e7
5 changed files with 78 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/image.ml
View file

@ -115,7 +115,7 @@ let make_thumbnail content =
Cmd.(
v "convert" % "-define" % "jpeg:size=700x700" % p image_file
% "-auto-orient" % "-thumbnail" % "300x300>" % "-unsharp" % "0x.5"
% "-format" % "jpg" % p thumb_file)
% "-format" % "jpg" % p thumb_file )
in
let* () = OS.Cmd.run cmd in
let* thumbnail = OS.File.read thumb_file in