type t = Forms.Events.event option Note.E.send

let apply
  : t -> State.t -> State.t
  = fun close_sender state ->
    begin match state.page_id with
      | None -> state
      | Some page_id ->
        let title = Jstr.v "Confirmation" in
        let popup = Forms.Ui.popup
            ~title
            ~form:(Some (Forms.Delete_page.create page_id))
            close_sender in
        { state with window = popup::state.window}
    end