From 1eeaf137bd30aff1bef34d05eeec686f6da8959d Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 23 May 2021 22:09:50 +0200
Subject: Update editor

---
 editor/actions/add_page.ml | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 editor/actions/add_page.ml

(limited to 'editor/actions/add_page.ml')

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}
-- 
cgit v1.2.3