diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2021-05-23 22:09:50 +0200 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | 1eeaf137bd30aff1bef34d05eeec686f6da8959d (patch) | |
tree | 63589546a32b72382e94f1ee16cf671cec911648 /editor/actions/delete_page.ml | |
parent | 97f3ac8054de22b94e4ae169dae33ed5b1b41a52 (diff) |
Update editor
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 + |