editor/forms/delete_page.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

open Brr
open Note

type t = unit

let create
  : unit -> t Note.signal * El.t
  = fun () ->
    let state = S.const () in

    let message = begin
      let open Jstr in

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

    ( state
    , El.txt message )