fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Shortening for toc is back

This commit is contained in:
John Whitington 2023-07-12 14:38:36 +01:00
parent b8bc5f1905
commit 643a552b09
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cpdftoc.ml
View File

@ -55,14 +55,23 @@ let of_pdfdocencoding fontpack fontsize t =
(* Remove characters until it is below the length. Then remove three more and (* Remove characters until it is below the length. Then remove three more and
add dots for an ellipsis *) add dots for an ellipsis *)
let rec shorten_text_inner widths l t = let rec shorten_text_inner l t =
if t = [] then t else match rev t with
if Cpdftype.width_of_string widths t > l then shorten_text_inner widths l (rev (tl (rev t))) | Cpdftype.Text text::Cpdftype.Font (f, fs)::more ->
else t if Cpdftype.width_of_string (Cpdftype.font_widths f fs) text > l then
shorten_text_inner l (rev (Cpdftype.Text (all_but_last text)::Cpdftype.Font (f, fs)::more))
else
t
| _ -> t
let shorten_text widths l t = let shorten_text fontpack fontsize l t =
let short = shorten_text_inner widths l t in let short = shorten_text_inner l t in
if short = t then t else short @ ['.'; '.'; '.'] if short = t then t else
let charcode, _, dotfont =
unopt (Cpdfembed.get_char fontpack (int_of_char '.'))
in
let charcode = char_of_int charcode in
short @ [Cpdftype.Font (dotfont, fontsize); Cpdftype.Text [charcode; charcode; charcode]]
(* Calculate the used codepoints *) (* Calculate the used codepoints *)
let used pdf fastrefnums labels title marks = let used pdf fastrefnums labels title marks =
@ -135,7 +144,7 @@ let typeset_table_of_contents ~font ~fontsize ~title ~bookmark pdf =
of_pdfdocencoding fontpack fontsize pde of_pdfdocencoding fontpack fontsize pde
in in
let textgap = width -. margin *. 2. -. indent -. width_of_runs labelruns 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 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; [Cpdftype.BeginDest mark.Pdfmarks.target;
Cpdftype.HGlue indent] Cpdftype.HGlue indent]