Source file `log_config.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
type t = {
  log_config_style_renderer : Fmt.style_renderer option;
  log_config_level : Logs.level option;
}
(** the type of log configuration *)

(** [create ?log_config_style_renderer ?log_config_level ()] creates log configuration *)
let create ?log_config_style_renderer ?log_config_level () =
  { log_config_style_renderer; log_config_level }

(** [to_args] translates the configuration to {!Bos.Cmd.t} *)
let to_args { log_config_style_renderer; log_config_level } =
  let color =
    match log_config_style_renderer with
    | None -> "auto"
    | Some `None -> "never"
    | Some `Ansi_tty -> "always"
  in
  Bos.Cmd.(
    empty
    % ("--verbosity=" ^ Logs.level_to_string log_config_level)
    % ("--color=" ^ color))