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

No leader if no page number

Browse Source
This commit is contained in:
John Whitington
2024-12-03 17:34:23 +00:00
parent 3ba639824c
commit 7145a558eb
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
cpdftoc.ml
View File

@ -157,13 +157,13 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark ~dotleader pdf =
let textgap = width -. margin *. 2. -. indent -. width_of_runs labelruns in let textgap = width -. margin *. 2. -. indent -. width_of_runs labelruns in
let textruns = shorten_text fontpack fontsize (textgap -. fontsize *. 3.) textruns in let textruns = shorten_text fontpack fontsize (textgap -. fontsize *. 3.) textruns in
let space = textgap -. width_of_runs textruns in let space = textgap -. width_of_runs textruns in
[Cpdftype.BeginDest mark.Pdfmarks.target; let leader =
Cpdftype.HGlue indent] if dotleader && labelruns <> []
@ textruns @ then make_dots space fontpack fontsize
(if dotleader then make_dots space fontpack fontsize else [Cpdftype.HGlue space]) else [Cpdftype.HGlue space]
@ labelruns @ in
[Cpdftype.EndDest; [Cpdftype.BeginDest mark.Pdfmarks.target; Cpdftype.HGlue indent] @ textruns @ leader @ labelruns
Cpdftype.NewLine]) @ [Cpdftype.EndDest; Cpdftype.NewLine])
(Pdfmarks.read_bookmarks pdf) (Pdfmarks.read_bookmarks pdf)
in in
let toc_pages, _ = let toc_pages, _ =