module M = struct

  type t = unit

  let apply
    : 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 -> Event.t Note.event
  = fun () ->
    let title = Jstr.v "Confirmation" in
    let ev = Forms.Ui.popup
        ~title
        ~form:(Some (Forms.Delete_page.create () ))
    in
    Note.E.map
      (fun v -> Event.E
          ( v
          , (module M : Event.Handler with type t = M.t )))
      (Note.E.Option.on_some ev)