diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2021-04-29 15:20:11 +0200 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:43:33 +0100 |
commit | 2fc4e793b12341df6264e22c0b8bd0f6dd2bd27d (patch) | |
tree | b61b55dc11e4361927c1638d1eb4e82feeef5465 /editor/forms/delete_page.ml | |
parent | eb319516fd922ab89b7120a885d1e801fa3f45aa (diff) |
Added pop-up and events in editor
Diffstat (limited to 'editor/forms/delete_page.ml')
-rwxr-xr-x | editor/forms/delete_page.ml | 25 |
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 + ) + |