mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-02-16 11:50:54 +01:00
roundtripping of bookmarks done
This commit is contained in:
parent
2b8a334190
commit
3ec1628d7a
10
cpdf.ml
10
cpdf.ml
@ -1018,12 +1018,12 @@ let bookmark_of_data pdf i s i' isopen optionaldest =
|
||||
None ->
|
||||
raise (Pdf.PDFError "bookmark_of_data: page obj num not found")
|
||||
| Some p ->
|
||||
Pdfdest.read_destination
|
||||
(Pdf.empty ())
|
||||
(Pdf.Array (Pdf.Indirect p::more))
|
||||
Pdfdest.read_destination pdf (Pdf.Array (Pdf.Indirect p::more))
|
||||
end
|
||||
| _ ->
|
||||
raise (Pdf.PDFError "bookmark_of_data: dest")
|
||||
(* Need to deal with "null", "(string)", and "<<other thing like action" *)
|
||||
| Pdf.Null -> Pdfdest.NullDestination
|
||||
| Pdf.String s -> Pdfdest.read_destination pdf (Pdf.String s)
|
||||
| x -> Pdfdest.Action x
|
||||
end
|
||||
| _ -> Pdfpage.target_of_pagenumber pdf i'
|
||||
in
|
||||
|
@ -22,6 +22,7 @@
|
||||
%FIXME: Document -gs gs -gs-embed-fonts
|
||||
%FIXME: Document -merge-add-bookmarks, -merge-add-bookmarks-use-titles
|
||||
%FIXME: Document -bookmarks-open-to-level <n>
|
||||
%FIXME: Explain in key places that you probably want UTF8 a lot
|
||||
|
||||
\documentclass{book}
|
||||
\usepackage{palatino}
|
||||
|
Loading…
x
Reference in New Issue
Block a user