open Brr
open Note

module Handler = struct

  type t = Jstr.t

  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
end

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

    let state =
      S.const
        (Events.Event
           ( name
           , (module Handler: Events.Handler with type t = Handler.t))) in

    let message = begin
      let open Jstr in

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

    ( state
    , El.txt message
    )