This commit is contained in:
John Whitington 2021-10-27 15:29:25 +01:00
parent 0825a2d87a
commit c192d3fa0f
2 changed files with 3 additions and 3 deletions

View File

@ -640,7 +640,7 @@ let mark_of_json pdf = function
("open", `Bool openstatus); ("open", `Bool openstatus);
("target", target)] -> ("target", target)] ->
{Pdfmarks.level = level; {Pdfmarks.level = level;
Pdfmarks.text = text; Pdfmarks.text = Pdftext.pdfdocstring_of_utf8 text;
Pdfmarks.target = target_of_json_target pdf pagenumber target; Pdfmarks.target = target_of_json_target pdf pagenumber target;
Pdfmarks.isopen = openstatus} Pdfmarks.isopen = openstatus}
| _ -> error "malformed mark in mark_of_json" | _ -> error "malformed mark in mark_of_json"
@ -886,7 +886,7 @@ let output_json_marks ch calculate_page_number pdf fastrefnums marks =
let json_of_mark m = let json_of_mark m =
`Assoc `Assoc
[("level", `Int m.Pdfmarks.level); [("level", `Int m.Pdfmarks.level);
("text", `String m.Pdfmarks.text); ("text", `String (Pdftext.utf8_of_pdfdocstring m.Pdfmarks.text));
("page", `Int (calculate_page_number m)); ("page", `Int (calculate_page_number m));
("open", `Bool m.Pdfmarks.isopen); ("open", `Bool m.Pdfmarks.isopen);
("target", json_of_target pdf fastrefnums m.Pdfmarks.target)] ("target", json_of_target pdf fastrefnums m.Pdfmarks.target)]

View File

@ -2,7 +2,7 @@
%Document -decrypt-force %Document -decrypt-force
%Document -collate %Document -collate
%Document -impose and friends (inc. 0-w, 0-h for long ones, how lines scale etc., undefined if pages different sizes) %Document -impose and friends (inc. 0-w, 0-h for long ones, how lines scale etc., undefined if pages different sizes)
%Document -bookmarks-json including special "none" target %Document -bookmarks-json including mentioning UTF8
\documentclass{book} \documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf etc. % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf etc.