indent multi line messages (WIP)
This commit is contained in:
parent
79495e64df
commit
e5183a44b8
|
@ -75,7 +75,11 @@ let writer t ~timestamp ~namespace ~level msg =
|
||||||
(level_header level)
|
(level_header level)
|
||||||
Ansi.pr [Bold true; Fg None];
|
Ansi.pr [Bold true; Fg None];
|
||||||
|
|
||||||
pr_lines t.bp msg ~indent:(0 (*t.align_to - 3*));
|
let indent =
|
||||||
|
(* TODO: calculate this differently depending on color settings *)
|
||||||
|
t.align_to - 3
|
||||||
|
in
|
||||||
|
pr_lines t.bp msg ~indent;
|
||||||
Printf.bprintf t.bp "%a\n"
|
Printf.bprintf t.bp "%a\n"
|
||||||
Ansi.pr [Bold false];
|
Ansi.pr [Bold false];
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue