Update editor

1 files changed, 11 insertions, 0 deletions

diff --git a/editor/actions/add_page.ml b/editor/actions/add_page.ml
new file mode 100755
index 0000000..b817573
--- /dev/null
+++ b/editor/actions/add_page.ml
@@ -0,0 +1,11 @@
+type t = Forms.Events.event option Note.E.send
+
+let apply
+  : t -> State.t -> State.t
+  = fun close_sender state ->
+    let title = Jstr.v "Nouvelle page" in
+    let popup = Forms.Ui.popup
+        ~title
+        ~form:(Some (Forms.Add_page.create ()))
+        close_sender in
+    { state with window = popup::state.window}