From 59eb6a35734a4b34f299b1c83adfb578f62c3cde Mon Sep 17 00:00:00 2001 From: John Whitington Date: Wed, 19 Mar 2025 18:31:30 +0000 Subject: [PATCH] Work note --- Changes | 6 +++--- cpdftoc.ml | 1 + 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index a5ccba6..fce9620 100644 --- a/Changes +++ b/Changes @@ -17,9 +17,9 @@ o -obj JSON output o Allow %objnum in output name for -extract-images * -show-boxes, -trim-marks, -table-of-contents, -add-text -add-rectangle, -impose, -twoup, -twoup-stack now preserve - PDF/UA compatibility -* Preserve PDF/UA when drawing on existing PDF -* Preserve PDF/UA with -stamp-on and -combine-pages + PDF/UA and PDF/UA-2 compatibility +* Preserve PDF/UA and PDF/UA-2 when drawing on existing PDF +* Preserve PDF/UA and PDF/UA-2 with -stamp-on and -combine-pages o Allow -scale-stamp-to-fit for -combine-pages * Allow -underneath for -combine-pages * Preserve roundtripping of names destinations / actions diff --git a/cpdftoc.ml b/cpdftoc.ml index c493d29..d369843 100644 --- a/cpdftoc.ml +++ b/cpdftoc.ml @@ -352,6 +352,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce assumption is ok because /P entries must have an indirect to point to. So if the document contains anything, the /Document structelem must be indirect. *) + (* FIXME Move this code up, and return i so we can put the proper /P parent entries in our structure elements. They should point to /Document now not the /StructTreeRoot. *) begin match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/StructTreeRoot"] with | Some d -> (* Get indirect of top-level /Document *)