fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-04-25 23:38:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

NamedDestinations

Browse Source
This commit is contained in:
John Whitington 2025-03-17 19:44:21 +00:00
parent 80519d93a6
commit 964c1a679a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfbookmarks.ml
View File

@ -45,7 +45,7 @@ let target_of_markfile_obj pdf i' pdfobj =
end
(* Need to deal with "null", "(string)", and "<<other thing like action" *)
| Pdf.Null -> Pdfdest.NullDestination
| Pdf.String s -> Pdfdest.NamedDestinationElsewhere s (* TODO Remove hack. *)
| Pdf.String s -> Pdfdest.NamedDestination s
| x -> Pdfdest.Action x
let target_of_markfile_target pdf i' = function
@ -232,7 +232,7 @@ let list_bookmarks ~json ~json_preserve_actions encoding range pdf output =
(function x ->
range_is_all ||
x.Pdfmarks.target = Pdfdest.NullDestination ||
(match x.Pdfmarks.target with Pdfdest.NamedDestinationElsewhere _ -> true | _ -> false) ||
(match x.Pdfmarks.target with Pdfdest.NamedDestination _ -> true | _ -> false) ||
Hashtbl.mem rangetable (Pdfpage.pagenumber_of_target ~fastrefnums pdf x.Pdfmarks.target)) bookmarks
in
let calculate_page_number mark =