- val mutable log_lines: string list = []
- method log msg = log_lines <- msg :: log_lines
- method asText = String.concat "\n" (List.rev log_lines)
+ val mutable log_lines = []
+ method log msg = log_lines <- Line msg :: log_lines
+ method logBold msg = log_lines <- LineBold msg :: log_lines
+ method logEmph msg = log_lines <- LineEmph msg :: log_lines
+ method asText =
+ String.concat "\n" (List.rev (List.map text_of_line log_lines))