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)