more
This commit is contained in:
parent
3304b54438
commit
c8ce0d5c2b
|
@ -1272,6 +1272,7 @@ let set_input s =
|
||||||
|
|
||||||
let set_json_input s =
|
let set_json_input s =
|
||||||
args.original_filename <- s;
|
args.original_filename <- s;
|
||||||
|
args.create_objstm <- true;
|
||||||
let fh = open_in_bin s in
|
let fh = open_in_bin s in
|
||||||
let pdf = Cpdfjson.of_input (Pdfio.input_of_channel fh) in
|
let pdf = Cpdfjson.of_input (Pdfio.input_of_channel fh) in
|
||||||
close_in fh;
|
close_in fh;
|
||||||
|
|
|
@ -118,8 +118,6 @@ let impose_transforms fit fx fy columns rtl btt center margin mediabox output_me
|
||||||
done;
|
done;
|
||||||
map (if fit then make_margin output_mediabox margin else Fun.id) (rev !trs)
|
map (if fit then make_margin output_mediabox margin else Fun.id) (rev !trs)
|
||||||
|
|
||||||
(* Combine two pages into one throughout the document. The pages have already
|
|
||||||
had their objects renumbered so as not to clash. *)
|
|
||||||
let impose_pages fit x y columns rtl btt center margin output_mediabox fast fit_extra_hspace fit_extra_vspace pdf = function
|
let impose_pages fit x y columns rtl btt center margin output_mediabox fast fit_extra_hspace fit_extra_vspace pdf = function
|
||||||
| [] -> assert false
|
| [] -> assert false
|
||||||
| (h::_) as pages ->
|
| (h::_) as pages ->
|
||||||
|
|
Loading…
Reference in New Issue