fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

TOC title for PDF/UA2

Browse Source
This commit is contained in:
John Whitington
2025-03-20 14:09:42 +00:00
parent f81920c997
commit cbfacd8261
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
cpdftoc.ml
View File

@ -287,6 +287,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
end
| _ -> 0
in
let p_struct_elem_first_page_ref = ref 0 in
if process_struct_tree then
begin
let struct_tree_root =
@ -302,6 +303,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
("/K", Pdf.Array [Pdf.Integer 0]);
("/P", Pdf.Indirect struct_tree_root)])
in
p_struct_elem_first_page_ref := p_struct_elem_first_page;
let mcid = ref 1 in
let link_struct_elems_for_each_page =
map2
@ -403,7 +405,13 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
Pdfmarks.text = Pdftext.pdfdocstring_of_utf8 (implode (real_newline (explode title)));
Pdfmarks.target =
if subformat = Some Cpdfua.PDFUA2 then
Pdfdest.XYZ (Pdfdest.PageObject top_level_document, None, None, None)
let action =
Pdf.Dictionary
[("/SD", Pdf.Array [Pdf.Indirect !p_struct_elem_first_page_ref; Pdf.Name "/XYZ"; Pdf.Null; Pdf.Null; Pdf.Null]);
("/S", Pdf.Name "/GoTo");
("/D", Pdf.Array [Pdf.Indirect (hd refnums); Pdf.Name "/XYZ"; Pdf.Null; Pdf.Null; Pdf.Null])]
in
Pdfdest.Action action
else
Pdfdest.XYZ (Pdfdest.PageObject (hd refnums), None, None, None);
Pdfmarks.isopen = false;