indent multi line messages (WIP)

lib/pretty_print.ml

@@ -75,7 +75,11 @@ let writer t ~timestamp ~namespace ~level msg =
       (level_header level)
       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"
       Ansi.pr [Bold false];