More fontpack
This commit is contained in:
parent
62e4f6f7d1
commit
814108443e
|
@ -16,7 +16,10 @@ let rec real_newline = function
|
||||||
|
|
||||||
(* Run of Font / Text elements from a fontpack and UTF8 text *)
|
(* Run of Font / Text elements from a fontpack and UTF8 text *)
|
||||||
let of_utf8 fontpack t =
|
let of_utf8 fontpack t =
|
||||||
|
let font = ref 0 in
|
||||||
[]
|
[]
|
||||||
|
(* Use the fontpack to find which font is required, then return runs
|
||||||
|
of [Font (font, size); Text t] in a list *)
|
||||||
(* Pdftext.codepoints_of_utf8 t
|
(* Pdftext.codepoints_of_utf8 t
|
||||||
|> option_map (Pdftext.charcode_extractor_of_font_real f)
|
|> option_map (Pdftext.charcode_extractor_of_font_real f)
|
||||||
|> map char_of_int*)
|
|> map char_of_int*)
|
||||||
|
|
Loading…
Reference in New Issue