Source file fmt_meta.ml

type Format.stag += Hxd_style_renderer

let style_renderer_tag = Hxd_style_renderer

let meta_store ppf = Format.pp_get_formatter_stag_functions ppf ()

let set_meta_store ppf store = Format.pp_set_formatter_stag_functions ppf store

let meta_raw store tag = store.Format.mark_open_stag tag

let set_meta ppf store ~style_renderer =
  let meta = function
    | Hxd_style_renderer -> style_renderer
    | _ -> "Hxd: god, we broken everythings" in
  let store = { store with Format.mark_open_stag = meta } in
  set_meta_store ppf store