dune fmt

Author: panglesd

src/engine/previewer/dune

@@ -1,4 +1,12 @@
 (library
  (name previewer)
  (public_name slipshow.previewer)
- (libraries communication brr slipshow js_of_ocaml-lwt lwt ansi actions_arguments common_types))
+ (libraries
+  communication
+  brr
+  slipshow
+  js_of_ocaml-lwt
+  lwt
+  ansi
+  actions_arguments
+  common_types))

src/engine/previewer/previewer.mli

@@ -14,9 +14,7 @@ val create_previewer :
   ?callback:(int -> unit) ->
   ?save_drawing:(path:string -> content:string -> unit) ->
   save_coordinate:
-    (id:Common_types.gui_id ->
-    coord:Actions_arguments.Gui.t ->
-    unit) ->
+    (id:Common_types.gui_id -> coord:Actions_arguments.Gui.t -> unit) ->
   goto_loc:(Common_types.gui_id -> unit) ->
   include_speaker_view:bool ->
   errors_el:Brr.El.t ->

src/engine/runtime/messaging/messaging.mli

@@ -15,8 +15,5 @@ val open_speaker_notes : unit -> unit
 val send_speaker_notes : string -> unit
 val opened_recording_panel : unit -> unit
 val closed_recording_panel : unit -> unit
-
-val send_gui_coordinate :
-  Common_types.gui_id -> Actions_arguments.Gui.t -> unit
-
+val send_gui_coordinate : Common_types.gui_id -> Actions_arguments.Gui.t -> unit
 val send_loc : Common_types.gui_id -> unit

src/lspishow/roots.mli

@@ -14,7 +14,7 @@ val saved : t
 (** The roots for the saved buffers. *)
 
 val update_root :
-  should_broadcast: bool ->
+  should_broadcast:bool ->
   Slipshow.Compile.file_reader ->
   t ->
   Slipshow.Ast.unit' Fpath.map ->

src/server/proto/proto.mli

@@ -12,10 +12,7 @@ module Client_to_server : sig
     | Ping
     | UpdateFrom of string
     | Save_drawing of string * string (* path * content *)
-    | Save_gui_position of {
-        id : Common_types.gui_id;
-        coord : string;
-      }
+    | Save_gui_position of { id : Common_types.gui_id; coord : string }
     | GotoLoc of Common_types.gui_id
 
   include Serializing with type t := t

src/server/slipshow_server.mli

@@ -29,9 +29,7 @@ val do_watch :
 module Server : sig
   val do_serve :
     port:int ->
-    to_lsp_server:
-      (Proto.Client_to_server.t -> root -> unit)
-      option ->
+    to_lsp_server:(Proto.Client_to_server.t -> root -> unit) option ->
     roots ->
     (unit, [> `Addr_in_use ]) result Lwt.t
 end