Module Experiments.Markup_fmt

An alternative experiment.

val vertical_box : ?indent:int -> Stdlib.Format.formatter -> (Stdlib.Format.formatter -> unit) -> unit
val wrapping_box : ?indent:int -> Stdlib.Format.formatter -> (Stdlib.Format.formatter -> unit) -> unit
type in_par = [
  1. | `Text of Internal_pervasives.string
  2. | `Highlight of in_par
  3. | `Concat of in_par Internal_pervasives.list
]
val verbatim : 'a -> [> `Verbatim of 'a ] list
val verbatim_raw : Flexmasa.Internal_pervasives.String.t -> [> `Verbatim of Flexmasa.Internal_pervasives.String.t list ] list
val verbatim_ezjson : Ezjsonm.value -> [> `Verbatim of Flexmasa.Internal_pervasives.String.t list ] list
val tf : ('a, Stdlib.Format.formatter, unit, in_par Internal_pervasives.list) Stdlib.format4 -> 'b
val concat : 'a -> [> `Concat of 'a ]
val hlf : ('a, Stdlib.Format.formatter, unit, in_par Internal_pervasives.list) Stdlib.format4 -> 'b
val itemize : in_par Internal_pervasives.list Flexmasa.Internal_pervasives.List.t -> t Internal_pervasives.list
val to_fmt : t Internal_pervasives.list -> Stdlib.Format.formatter -> unit -> unit