From d4ae95f361052df4531653b632a9d6b3e8c820c0 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Wed, 27 Oct 2021 20:15:05 +0100 Subject: [PATCH] labels --- cpdfcommand.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cpdfcommand.ml b/cpdfcommand.ml index 840edf4..e43c1a7 100644 --- a/cpdfcommand.ml +++ b/cpdfcommand.ml @@ -3453,7 +3453,7 @@ let go () = | (_, pagespec, _, _, _, _)::_, _ -> let pdf = get_single_pdf args.op true in let range = parse_pagespec_allow_empty pdf pagespec in - Cpdf.list_bookmarks args.format_json args.encoding range pdf (Pdfio.output_of_channel stdout); + Cpdf.list_bookmarks ~json:args.format_json args.encoding range pdf (Pdfio.output_of_channel stdout); flush stdout | _ -> error "list-bookmarks: bad command line" end @@ -3983,8 +3983,8 @@ let go () = let x, y = Cpdfcoord.parse_coordinate pdf args.coord in if not fit && (x < 0.0 || y < 0.0) then error "Negative imposition parameters not allowed." else write_pdf false - (Cpdf.impose x y fit args.impose_columns args.impose_rtl args.impose_btt args.impose_center - args.impose_margin args.impose_spacing args.impose_linewidth args.fast pdf) + (Cpdf.impose ~x ~y ~fit ~columns:args.impose_columns ~rtl:args.impose_rtl ~btt:args.impose_btt ~center:args.impose_center + ~margin:args.impose_margin ~spacing:args.impose_spacing ~linewidth:args.impose_linewidth ~fast:args.fast pdf) | Some (StampOn over) -> let overpdf = match over with