1 files changed, 16 insertions, 0 deletions
diff --git a/editor/actions/delete_page.ml b/editor/actions/delete_page.ml
new file mode 100755
index 0000000..cc15693
--- /dev/null
+++ b/editor/actions/delete_page.ml
@@ -0,0 +1,16 @@
+type t = Forms.Events.event option Note.E.send
+
+let apply
+  : t -> State.t -> State.t
+  = fun close_sender state ->
+    begin match state.page_id with
+      | None -> state
+      | Some page_id ->
+        let title = Jstr.v "Confirmation" in
+        let popup = Forms.Ui.popup
+            ~title
+            ~form:(Some (Forms.Delete_page.create page_id))
+            close_sender in
+        { state with window = popup::state.window}
+    end
+