Added pop-up and events in editor

1 files changed, 25 insertions, 0 deletions

diff --git a/editor/forms/delete_page.ml b/editor/forms/delete_page.ml
new file mode 100755
index 0000000..701162c
--- /dev/null
+++ b/editor/forms/delete_page.ml
@@ -0,0 +1,25 @@
+open Brr
+open Note
+
+type Events.kind +=
+  | DeletePage of Jstr.t [@@unboxed]
+
+let create
+  : Jstr.t -> Events.t
+  = fun name ->
+
+    let state =
+      S.const (DeletePage name) in
+
+    let message = begin
+      let open Jstr in
+
+      (v "La page " )
+      + name
+      + (v " sera définitivement supprimée")
+    end in
+
+    ( state
+    , El.txt message
+    )
+