more

cpdf.ml

@@ -1746,7 +1746,9 @@ let addtext
 =
   let endpage = Pdfpage.endpage pdf in
   let replace_pairs pdf filename bates batespad num page =
-      ["%Page", (fun () -> string_of_int num);
+      [
+       "%PageDiv2", (fun () -> string_of_int ((num + 1) / 2));
+       "%Page", (fun () -> string_of_int num);
        "%Roman", (fun () -> roman_upper num);
        "%roman", (fun () -> roman_lower num);
        "%filename", (fun () -> filename);

cpdfmanual.tex

@@ -1,5 +1,6 @@
 %FIXME: Document new -hard-box option
 %FIXME: Document that -upright also shifts the page to 0,0
+%FIXME: Document %PageDiv2
 \documentclass{book}
 \usepackage{palatino}
 \usepackage{microtype}