standalone-nekketsuuu.satyh

@require: pervasives
@require: math

let-block ctx +p inner =
  let ib-inner = read-inline ctx inner in
  let ib-parag = ib-inner ++ inline-fil in
  form-paragraph ctx ib-parag

let standalone bt =
  let ctx =
    get-initial-context 440pt (command \math)
      |> set-dominant-narrow-script Latin
      |> set-dominant-wide-script Kana
  in
  let bb = read-block ctx bt in
  page-break A4Paper
    (fun _ -> (|
      text-origin = (80pt, 100pt);
      text-height = 630pt;
    |))
    (fun _ -> (|
      header-origin  = (0pt, 0pt);
      header-content = block-nil;
      footer-origin  = (0pt, 0pt);
      footer-content = block-nil;
    |))
    bb