fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-16 11:50:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington 2022-08-04 18:43:35 +02:00
parent 7916bcfee1
commit 55b7371d07
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfaddtext.ml
View File

@ -380,6 +380,7 @@ let addtext
let unique_fontname = Pdf.unique_key "F" fontdict in let unique_fontname = Pdf.unique_key "F" fontdict in
let ops, urls = let ops, urls =
let text = process_text time text (replace_pairs pdf filename bates batespad num page) in let text = process_text time text (replace_pairs pdf filename bates batespad num page) in
let text = hd (fst (get_urls [text])) in
let calc_textwidth text = let calc_textwidth text =
match font with match font with
| Some f -> | Some f ->
@ -419,7 +420,7 @@ let addtext
process_text time text (replace_pairs pdf filename bates batespad num page)) process_text time text (replace_pairs pdf filename bates batespad num page))
lines lines
in in
let expanded_lines, urls = let expanded_lines, urls = (* process URLs for justification too *)
get_urls expanded_lines get_urls expanded_lines
in in
let textwidth = calc_textwidth text let textwidth = calc_textwidth text