Source file `fmt_meta.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 ~extra = function
    | Hxd_style_renderer -> style_renderer
    | stag -> extra stag in
  let extra = (meta_store ppf).mark_open_stag in
  let store = {store with Format.mark_open_stag= meta ~extra} in
  set_meta_store ppf store