blob: 9086fc3afd0a24e5e24a0622c2d64db5f8613829 (
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
|
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);
let json = State.Storage.load None in
State.load_page None state json
end
let create
: unit -> State.event Note.event
= fun () ->
let title = Jstr.v "Confirmation" in
let ev = Elements.Popup.create
~title
~form:(Some (Forms.Delete_page.create () ))
in
Note.E.map
(fun v -> State.E
( v
, (module M : State.Event with type t = M.t )))
(Note.E.Option.on_some ev)
|
