blob: 7fa609b5b27fde30b08e6a5ff3a269747ed0706c (
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
32
33
|
module App = Editor_app
module M = struct
type t = unit
let update
: 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.E
( v
, (module M : App.Event with type t = M.t )))
(Note.E.Option.on_some ev)
|
