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

Restore plain fonts to -add-text

Browse Source
This commit is contained in:
John Whitington
2023-07-20 14:22:13 +01:00
parent ce7db5350a
commit da08260313
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfaddtext.ml
View File

@ -357,6 +357,7 @@ let addtext
let newresources =
match fontpack with
| Some fontpack ->
Printf.printf "New resources: a fontpack!\n";
let newfontdict =
let fd = ref fontdict in
iter2
@ -368,6 +369,7 @@ let addtext
in
Pdf.add_dict_entry resources' "/Font" newfontdict
| None ->
Printf.printf "New resources: no fontpack!\n";
match font with
| Some (Pdftext.StandardFont _ as font) ->
let newfontdict =
@ -472,7 +474,7 @@ let
let font, fontpack =
match cpdffont with
| Cpdfembed.PreMadeFontPack f ->
Some (hd (fst f)), Some f
Some (hd (fst f)), None
| Cpdfembed.EmbedInfo {fontfile; fontname; encoding} ->
let embedded = Cpdfembed.embed_truetype pdf ~fontfile ~fontname ~codepoints:(map fst (list_of_hashtbl used)) ~encoding in
Some (hd (fst embedded)), Some embedded