38 lines
751 B
OCaml
38 lines
751 B
OCaml
open Stdune
|
|
|
|
val colorize : key:string -> string -> string
|
|
|
|
val stderr_supports_colors : bool Lazy.t
|
|
|
|
(** [Env.initial] extended with variables to force a few tools to
|
|
print colors *)
|
|
val setup_env_for_colors : Env.t -> Env.t
|
|
|
|
(** Strip colors in [not (Lazy.force stderr_supports_colors)] *)
|
|
val strip_colors_for_stderr : string -> string
|
|
|
|
(** Enable the interpretation of color tags for [Format.err_formatter] *)
|
|
val setup_err_formatter_colors : unit -> unit
|
|
|
|
type styles
|
|
|
|
val output_filename : styles
|
|
|
|
val apply_string : styles -> string -> string
|
|
|
|
module Style : sig
|
|
type t =
|
|
| Loc
|
|
| Error
|
|
| Warning
|
|
| Kwd
|
|
| Id
|
|
| Prompt
|
|
| Details
|
|
| Ok
|
|
| Debug
|
|
end
|
|
|
|
module Render : Pp.Renderer.S
|
|
with type Tag.t = Style.t
|