fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2023-02-20 19:39:42 +00:00
parent d12f1cfa46
commit 060fbd0c83
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfannot.ml
View File

@ -98,14 +98,13 @@ let postprocess_json_pdf objnum_to_serial_map pdf obj =
| Some s -> Pdf.add_dict_entry obj "/Parent" (Pdf.Integer s) | Some s -> Pdf.add_dict_entry obj "/Parent" (Pdf.Integer s)
| None -> Printf.eprintf "Warning: Cpdfannot.process_extra_object: could not find serial number\n"; obj | None -> Printf.eprintf "Warning: Cpdfannot.process_extra_object: could not find serial number\n"; obj
end end
| _ -> () | _ ->
(*(* If not a popup annotation, remove /Parent. It drags in lots of (* If not a popup annotation, remove /Parent. It drags in lots of
extra objects (the whole page tree!) with a widget extra objects (the whole page tree!) with a widget
annotation, and we are unlikely to be able to round-trip them annotation, and we are unlikely to be able to round-trip them
anyway. One day, if we can match FDF properly, it might be anyway. One day, if we can match FDF properly, it might be
possible, but not now. *) possible, but not now. *)
Pdf.remove_dict_entry obj "/Parent"*) Pdf.remove_dict_entry obj "/Parent"
end end
in in
begin match obj with begin match obj with

5
cpdfcommand.ml
View File

@ -3392,8 +3392,13 @@ let embed_font () =
| FontToEmbed fontfile -> | FontToEmbed fontfile ->
EmbedInfo {fontfile; fontname = args.fontname; encoding = args.fontencoding} EmbedInfo {fontfile; fontname = args.fontname; encoding = args.fontencoding}
let check_bookmarks_mistake () =
if args.merge_add_bookmarks_use_titles && not args.merge_add_bookmarks then
Printf.eprintf "Warning: -merge-add-bookmarks-use-titles is for use with -merge-add-bookmarks\n"
(* Main function *) (* Main function *)
let go () = let go () =
check_bookmarks_mistake ();
match args.op with match args.op with
| Some Version -> | Some Version ->
flprint flprint