open Brr
open Note

type t = Jstr.t

type Events.kind +=
  | DeletePage of t [@@unboxed]

let create
  : Jstr.t -> Events.t
  = fun name ->

    let state =
      S.const (DeletePage name) in

    let message = begin
      let open Jstr in

      (v "La page " )
      + name
      + (v " sera définitivement supprimée")
    end in

    ( state
    , El.txt message
    )

let on_close
  : t -> State.t -> State.t
  = fun id state ->
    State.Storage.delete (fun () -> Some id);
    let json = State.Storage.load None in
    State.load_page None state json