From b8bc5f19052a82bbd764734061a6502c2350785b Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 12 Jul 2023 13:23:57 +0100
Subject: [PATCH] Toc spacing back in

---
 cpdftoc.ml      | 12 +++++++++---
 cpdftruetype.ml |  3 +--
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/cpdftoc.ml b/cpdftoc.ml
index 20a77f0..96b7a92 100644
--- a/cpdftoc.ml
+++ b/cpdftoc.ml
@@ -28,6 +28,13 @@ let collate_runs = function
   | [] -> []
   | (_, fontnum, _)::_ as l -> collate_runs fontnum [] l
 
+let rec width_of_runs runs =
+  match runs with
+  | Cpdftype.Font (f, fontsize)::Cpdftype.Text t::more ->
+      Cpdftype.width_of_string (Cpdftype.font_widths f fontsize) t +. width_of_runs more
+  | [] -> 0.
+  | _ -> failwith "width_of_runs"
+
 (* Run of Font / Text elements from a fontpack and UTF8 text *)
 let of_utf8 fontpack fontsize t =
   let codepoints = Pdftext.codepoints_of_utf8 t in
@@ -127,10 +134,9 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark pdf =
            in
              of_pdfdocencoding fontpack fontsize pde
          in
-         (*let widths = Cpdftype.font_widths f fontsize in
-         let textgap = width -. margin *. 2. -. indent -. Cpdftype.width_of_string widths label in*)
+         let textgap = width -. margin *. 2. -. indent -. width_of_runs labelruns in
          (*let text = shorten_text widths (textgap -. fontsize *. 3.) text in*) (*FIXME add back in, but in unicode not codepoints! *)
-         let space = 0. (*textgap -. Cpdftype.width_of_string widths text*) in
+         let space = textgap -. width_of_runs textruns in
            [Cpdftype.BeginDest mark.Pdfmarks.target;
             Cpdftype.HGlue indent]
            @ textruns @
diff --git a/cpdftruetype.ml b/cpdftruetype.ml
index d89e5c9..e942e9f 100644
--- a/cpdftruetype.ml
+++ b/cpdftruetype.ml
@@ -3,8 +3,7 @@ open Pdfutil
 open Pdfio
 
 let dbg =
-  (*let _ =
-      Pdfe.logger := (fun s -> print_string s; flush stdout)*)
+  (* Pdfe.logger := (fun s -> print_string s; flush stdout) *)
   ref false
 
 type t =