New replace_chain API

This commit is contained in:
John Whitington 2024-07-08 19:09:32 +01:00
parent ea11caa28d
commit 4c3ac81e2f
1 changed files with 1 additions and 1 deletions

View File

@ -467,7 +467,7 @@ let language pdf =
| _ -> None
let set_language pdf s =
Pdf.replace_chain pdf [] "/Lang" (Pdf.String s)
Pdf.replace_chain pdf ["/Root"; "/Lang"] (Pdf.String s)
let output_xmp_info ?(json=ref [("none", `Null)]) encoding pdf =
let notjson = !json = [("none", `Null)] in