diff options
Diffstat (limited to 'editor/actions/delete_page.ml')
-rwxr-xr-x | editor/actions/delete_page.ml | 16 |
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 + |