alter replace_chain API
This commit is contained in:
parent
4c3ac81e2f
commit
9de2e06ac1
|
@ -467,7 +467,7 @@ let language pdf =
|
||||||
| _ -> None
|
| _ -> None
|
||||||
|
|
||||||
let set_language pdf s =
|
let set_language pdf s =
|
||||||
Pdf.replace_chain pdf ["/Root"; "/Lang"] (Pdf.String s)
|
Pdf.replace_chain pdf ["/Root"] ("/Lang", (Pdf.String s))
|
||||||
|
|
||||||
let output_xmp_info ?(json=ref [("none", `Null)]) encoding pdf =
|
let output_xmp_info ?(json=ref [("none", `Null)]) encoding pdf =
|
||||||
let notjson = !json = [("none", `Null)] in
|
let notjson = !json = [("none", `Null)] in
|
||||||
|
|
Loading…
Reference in New Issue