Skip to content

Instantly share code, notes, and snippets.

@konn

konn/crossref.saty

Created March 2, 2018 15:14
Show Gist options
  • Save konn/6900e54673cd0e6925f123a78fab62f9 to your computer and use it in GitHub Desktop.
Save konn/6900e54673cd0e6925f123a78fab62f9 to your computer and use it in GitHub Desktop.
Download ZIP
total page SATySFi
Raw
crossref.saty
let hook = line-break false false (get-standard-context 0pt)
(hook-page-break (fun pbInfo _ -> (
numpages <- pbInfo#page-number
)))
in
let answer = page-break page pagecontf pagepartsf (bb-title +++ bb-toc +++ bb-main +++ hook)
in let () = register-cross-reference `pagecount` (arabic (!numpages))
in answer
@gfngfn
Copy link

gfngfn commented Mar 2, 2018 

    let hook = line-break false false (get-standard-context 0pt)
        (hook-page-break (fun pbInfo _ -> (
            let numpages = pbInfo#page-number in
            register-cross-reference `pagecount` (arabic numpages)
        )))
    in
    page-break page pagecontf pagepartsf (bb-title +++ bb-toc +++ bb-main +++ hook)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment