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/delete_page.ml | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 editor/actions/delete_page.ml

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

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