editor/forms/delete_page.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

open Brr
open Note

type Events.kind +=
  | DeletePage of Jstr.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
    )