1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
let make_prompt_markup ~impl:(module I : Impl.M) message =
let prompt_str = message ^ " " in
let prompt_prefix =
Style.Text_markup.apply I.prompt_prefix ~style:I.prompt_prefix_style
in
let prompt = Style.Text_markup.apply prompt_str ~style:I.prompt_style in
List.concat [ prompt_prefix; prompt ]
let make_error_markup ~impl:(module I : Impl.M) message =
let error_prefix =
Style.Text_markup.apply I.error_prefix ~style:I.error_prefix_style
in
let error = Style.Text_markup.apply message ~style:I.error_style in
List.concat [ error_prefix; error ]
let make_prompt_str ~impl:(module I : Impl.M) message =
let prompt_str = message ^ " " in
let prompt_prefix =
Style.Ascii.apply I.prompt_prefix ~style:I.prompt_prefix_style
in
let prompt = Style.Ascii.apply prompt_str ~style:I.prompt_style in
prompt_prefix ^ prompt
let make_error_str ~impl:(module I : Impl.M) message =
let error_prefix =
Style.Ascii.apply I.error_prefix ~style:I.error_prefix_style
in
let error = Style.Ascii.apply message ~style:I.error_style in
error_prefix ^ error