fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixing up JSON text output

Browse Source
This commit is contained in:
John Whitington
2021-12-30 15:25:24 +00:00
parent 618da13a80
commit dd2f8fd161
8 changed files with 44 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfannot.ml
View File

@ -26,7 +26,7 @@ let annotations_json_page pdf page pagenum =
| Some (Pdf.Array annots) ->
map
(fun annot ->
`List [`Int pagenum; Cpdfjson.json_of_object pdf (fun _ -> ()) false false annot])
`List [`Int pagenum; Cpdfjson.json_of_object ~clean_strings:true pdf (fun _ -> ()) false false annot])
(map (Pdf.direct pdf) annots)
| _ -> []