1 files changed, 21 insertions, 32 deletions
diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml
index dff2c2f..58e991b 100755
--- a/editor/actions/add_page.ml
+++ b/editor/actions/add_page.ml
@@ -2,42 +2,31 @@ module Js = Js_of_ocaml.Js
 module App = Editor_app
 
 module M = struct
-
   type t = Forms.Add_page.t
 
-  let key_of_title
-    : Jstr.t -> Jstr.t
-    = fun title ->
-      title
+  let key_of_title : Jstr.t -> Jstr.t = fun title -> title
 
-  let process
-    : t -> State.t -> State.t
-    = fun {title} state ->
-      let page_id = key_of_title title in
-      State.new_page ~title (Some page_id) state
+  let process : t -> State.t -> State.t =
+   fun { title } state ->
+    let page_id = key_of_title title in
+    State.new_page ~title (Some page_id) state
 end
 
-
 (** Create a new element *)
-let create
-  : unit -> App.event Note.event
-  = fun () ->
-    let title = Jstr.v "Nouvelle page" in
-    let form = Forms.Add_page.create () in
+let create : unit -> App.event Note.event =
+ fun () ->
+  let title = Jstr.v "Nouvelle page" in
+  let form = Forms.Add_page.create () in
 
-    let valid_on = Note.S.map
-        (fun Forms.Add_page.{title} -> not @@ Jstr.equal Jstr.empty title)
-        (fst form)
-    in
-    let ev = Elements.Popup.create
-        ~title
-        ~form
-        ~valid_on
-        ()
-    in
-    Note.E.map
-      (fun v -> App.dispatch (module M) v)
-      (* Option.on_some trigger the event only when the pop up is validated.
-         Closing the popup doesn't do anything.
-      *)
-      (Note.E.Option.on_some ev)
+  let valid_on =
+    Note.S.map
+      (fun Forms.Add_page.{ title } -> not @@ Jstr.equal Jstr.empty title)
+      (fst form)
+  in
+  let ev = Elements.Popup.create ~title ~form ~valid_on () in
+  Note.E.map
+    (fun v -> App.dispatch (module M) v)
+    (* Option.on_some trigger the event only when the pop up is validated.
+       Closing the popup doesn't do anything.
+    *)
+    (Note.E.Option.on_some ev)