From 8983f9ef8d41b244a2f5c4e5ee2c5ace0fb437ce Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 26 Feb 2025 17:12:12 +0000
Subject: [PATCH] Begin tagging links

---
 cpdftoc.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpdftoc.ml b/cpdftoc.ml
index a498be5..c624fc8 100644
--- a/cpdftoc.ml
+++ b/cpdftoc.ml
@@ -158,8 +158,8 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader ~proce
              then make_dots space fontpack fontsize
              else [Cpdftype.HGlue space]
          in
-             [Cpdftype.BeginDest (mark.Pdfmarks.target, Some mark.Pdfmarks.text); Cpdftype.HGlue indent] @ textruns @ leader @ labelruns
-           @ [Cpdftype.EndDest; Cpdftype.NewLine])
+             [Cpdftype.Tag ("Link", 0); Cpdftype.BeginDest (mark.Pdfmarks.target, Some mark.Pdfmarks.text); Cpdftype.HGlue indent] @ textruns @ leader @ labelruns
+           @ [Cpdftype.EndDest; Cpdftype.EndTag; Cpdftype.NewLine])
       (Pdfmarks.read_bookmarks pdf)
   in
   let toc_pages, _ =