# Module Misc.Style

    module Style: sig .. end

    type color =

`|` | `Black`
`|` | `Red`
`|` | `Green`
`|` | `Yellow`
`|` | `Blue`
`|` | `Magenta`
`|` | `Cyan`
`|` | `White`

    type style =

`|` | `FG of `color``
`|` | `BG of `color``
`|` | `Bold`
`|` | `Reset`

    type Format.stag +=

`|` | `Style of `style list``

    val ansi_of_style_l : style list -> string

    type tag_style = {

`` | `ansi : `style list`;`
`` | `text_open : `string`;`
`` | `text_close : `string`;`

`}`

    type styles = {

`` | `error : `tag_style`;`
`` | `warning : `tag_style`;`
`` | `loc : `tag_style`;`
`` | `hint : `tag_style`;`
`` | `inline_code : `tag_style`;`

`}`

    val hint : Format_doc.formatter -> unit

    val as_inline_code : 'a Format_doc.printer -> 'a Format_doc.printer

    val inline_code : string Format_doc.printer

    val default_styles : styles

    val get_styles : unit -> styles

    val set_styles : styles -> unit

    val setup : Misc.Color.setting option -> unit

    val set_tag_handling : Format.formatter -> unit