Migrate from Lwt_logs to Logs (manual changes)

Author: balat

src/os_comet.eliom

@@ -86,8 +86,10 @@ let already_send_ref =
 
 let%client handle_error =
   ref (fun exn ->
-    Eliom_lib.Lwt_log.ign_info_f ~exn
-      "Exception received on Os_comet's monitor channel: ";
+    Logs.info (fun fmt ->
+      fmt
+        ("Exception received on Os_comet's monitor channel: " ^^ "@\n%s")
+        (Printexc.to_string exn));
     restart_process ();
     Lwt.return_unit)
 
@@ -96,7 +98,7 @@ let%client set_error_handler f = handle_error := f
 let%client handle_message = function
   | Error exn -> !handle_error exn
   | Ok Heartbeat ->
-      Eliom_lib.Lwt_log.ign_info_f "poum";
+      Logs.info (fun fmt -> fmt "poum");
       Lwt.return_unit
   | Ok Connection_changed ->
       Os_msg.msg ~level:`Err

src/os_msg.eliom

@@ -50,7 +50,7 @@ let%shared
            if ~%onload then Eliom_client.lwt_onload () else Lwt.return_unit
          in
          let msgbox = msgbox () in
-         Eliom_lib.Lwt_log.ign_info_f "%s" ~%message;
+         Logs.info (fun fmt -> fmt "%s" ~%message);
          Dom.appendChild msgbox message_dom;
          let* () = Js_of_ocaml_lwt.Lwt_js.sleep ~%duration in
          Dom.removeChild msgbox message_dom;

src/os_user_view.eliom

@@ -323,7 +323,7 @@ let%shared
                      Lwt.return_unit)
                   (fun exn ->
                      Os_msg.msg ~level:`Err "Error while uploading the picture";
-                     Eliom_lib.Lwt_log.ign_info_f "%s" ~exn "→ ";
+                     Logs.info (fun fmt -> fmt "→ %s" (Printexc.to_string exn));
                      Lwt.return_unit))
             : _)]
       :: a)

template.distillery/.ocamlformat

@@ -1,3 +1,5 @@
+version=0.28.1
+parse-docstrings = false
 break-cases = fit
 break-collection-expressions = fit-or-vertical
 break-fun-decl = wrap

template.distillery/PROJECT_NAME.eliom

@@ -53,24 +53,19 @@ let%server () =
 (* Print more debugging information when <debugmode/> is in config file
    (DEBUG = yes in Makefile.options).
    Example of use:
-   let section = Lwt_log.Section.make "%%%MODULE_NAME%%%:sectionname"
+   let section = Logs.Src.create "%%%MODULE_NAME%%%:sectionname"
    ...
-   Lwt_log.ign_info ~section "This is an information";
-   (or ign_debug, ign_warning, ign_error etc.)
+   Logs.info ~src:section (fun fmt -> "This is an information %i " 1);
+   (or Logs.debug, Logs.err etc.)
 *)
 let%server _ =
   if Eliom_config.get_debugmode ()
   then (
-    ignore
+(*    ignore
       [%client
-        ((* Eliom_config.debug_timings := true; *)
-         (* Lwt_log_core.add_rule "eliom:client*" Lwt_log_js.Debug; *)
-         (* Lwt_log_core.add_rule "os*" Lwt_log_js.Debug; *)
-         Lwt_log_core.add_rule "%%%MODULE_NAME%%%*" Lwt_log_js.Debug
-         (* Lwt_log_core.add_rule "*" Lwt_log_js.Debug *)
-         : unit)];
-    (* Lwt_log_core.add_rule "*" Lwt_log.Debug *)
-    Lwt_log_core.add_rule "%%%MODULE_NAME%%%*" Lwt_log.Debug)
+        (Eliom_config.debug_timings := true
+         : unit)]; *)
+    Logs.set_level (Some Logs.Debug))
 
 (* The modules below are all the modules that needs to be explicitely
    linked-in. *)

template.distillery/PROJECT_NAME_mobile.eliom

@@ -148,5 +148,4 @@ let _ =
    debugger console, you can do so by uncommenting the following
    lines.  *)
 (* let () = Eliom_config.debug_timings := true *)
-(* let () = Lwt_log_core.add_rule "eliom:client*" Lwt_log_js.Debug *)
-(* let () = Lwt_log_core.add_rule "os*" Lwt_log_js.Debug *)
+(* let () = Logs.set_level (Some Logs.Debug) *)