Removed autoendline at end of messages and adapt

src/list_rc.ml

@@ -42,7 +42,7 @@ open Core.Std;;
 let disp_cmd_num current_number number command =
     (* If number is the global current one print a '*' *)
     let prepend = (if current_number = number then "* " else "  ") in
-    sprintf "%s%i: %s\n" prepend number command
+    sprintf "%s%i: %s" prepend number command
     |> (fun concatenated_msg ->
             match prepend with
             | "* " -> Messages.ok concatenated_msg

src/messages.ml

@@ -80,24 +80,27 @@ let print ~color ~style message =
 ;;
 
 (* Print debugging, information, important... messages *)
-(* XXX Partial applications *)
 let debug message =
     let mess = (Time.now()|> Time.to_string) ^ " " ^ message ^ "\n" in
     print ~color:White ~style:Bold mess
 ;;
 
-let info =
-    print ~color:White ~style:Normal
+let info message =
+    let mess = message ^ "\n" in
+    print ~color:White ~style:Normal mess
 ;;
 
-let warning =
-    print ~color:Red ~style:Bold
+let warning message =
+    let mess = message ^ "\n" in
+    print ~color:Red ~style:Bold mess
 ;;
 
-let ok =
-    print ~color:Green ~style:Bold
+let ok message =
+    let mess = message ^ "\n" in
+    print ~color:Green ~style:Bold mess
 ;;
 
-let tips =
-    print ~color:Yellow ~style:Normal
+let tips message =
+    let mess = message ^ "\n" in
+    print ~color:Yellow ~style:Normal mess
 ;;

src/state.ml

@@ -49,6 +49,6 @@ let get_current () =
 (* Display current number *)
 let print_current () =
     (* Display the number *)
-    sprintf "Current state: %i\n" (get_current ())
+    sprintf "Current state: %i" (get_current ())
     |> Messages.ok
 ;;