blob: 2b75b2ef0119442e84faf135759d4846780e8504 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
module App = Editor_app
module M = struct
type t = unit
let process
: t -> State.t -> State.t
= fun () state ->
match state.page_id with
| None -> state
| Some page_id ->
State.Storage.delete (fun () -> Some page_id);
State.load_page None state
end
let create
: unit -> App.event Note.event
= fun () ->
let title = Jstr.v "Confirmation"
and message =
Jstr.v "La page sera définitivement supprimée"
in
let ev = Elements.Popup.create
~title
~form:(Forms.Validation.create message)
()
in
Note.E.map
(fun v -> App.dispatch (module M) v)
(Note.E.Option.on_some ev)
|