preserve_actions

This commit is contained in:
John Whitington 2025-03-15 14:43:42 +00:00
parent a47bebac02
commit efcc697266
2 changed files with 3 additions and 3 deletions

View File

@ -259,9 +259,9 @@ let list_bookmarks ~json ~json_preserve_actions encoding range pdf output =
(output_string_of_target pdf fastrefnums mark.Pdfmarks.target))) (output_string_of_target pdf fastrefnums mark.Pdfmarks.target)))
inrange inrange
let get_bookmarks_json pdf = let get_bookmarks_json ~json_preserve_actions pdf =
let o, br = Pdfio.input_output_of_bytes (20 * 1024) in let o, br = Pdfio.input_output_of_bytes (20 * 1024) in
list_bookmarks ~json:true Cpdfmetadata.UTF8 (ilist 1 (Pdfpage.endpage pdf)) pdf o; list_bookmarks ~json:true ~json_preserve_actions Cpdfmetadata.UTF8 (ilist 1 (Pdfpage.endpage pdf)) pdf o;
Pdfio.extract_bytes_from_input_output o br Pdfio.extract_bytes_from_input_output o br
let get_bookmark_name encoding pdf marks splitlevel n _ = let get_bookmark_name encoding pdf marks splitlevel n _ =

View File

@ -15,7 +15,7 @@ chosen. *)
val list_bookmarks : json:bool -> json_preserve_actions:bool -> Cpdfmetadata.encoding -> int list -> Pdf.t -> Pdfio.output -> unit val list_bookmarks : json:bool -> json_preserve_actions:bool -> Cpdfmetadata.encoding -> int list -> Pdf.t -> Pdfio.output -> unit
(** Get bookmarks in JSON format. *) (** Get bookmarks in JSON format. *)
val get_bookmarks_json : Pdf.t -> Pdfio.bytes val get_bookmarks_json : json_preserve_actions:bool -> Pdf.t -> Pdfio.bytes
(** [name_of_spec encoding marks pdf splitlevel spec n filename startpage (** [name_of_spec encoding marks pdf splitlevel spec n filename startpage
endpage] expands a bookmark specifiation filename. *) endpage] expands a bookmark specifiation filename. *)