Use new CamlPDF option to avoid pointless compression

This commit is contained in:
John Whitington
2023-12-16 20:18:06 +00:00
parent 58122d8bae
commit adeb7c6c33
3 changed files with 3 additions and 2 deletions

View File

@@ -138,7 +138,7 @@ and remove_images_page onlyremove boxes pdf page =
{page with
Pdfpage.content =
(let stream = Pdfops.stream_of_ops content' in
Pdfcodec.encode_pdfstream pdf Pdfcodec.Flate stream;
Pdfcodec.encode_pdfstream ~only_if_smaller:true pdf Pdfcodec.Flate stream;
[stream]);
Pdfpage.resources = resources'}, pdf