editor/actions/add_page.ml


1
2
3
4
5
6
7
8
9
10
11

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

let apply
  : t -> State.t -> State.t
  = fun close_sender state ->
    let title = Jstr.v "Nouvelle page" in
    let popup = Forms.Ui.popup
        ~title
        ~form:(Some (Forms.Add_page.create ()))
        close_sender in
    { state with window = popup::state.window}