editor/forms/selector.ml


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

type file = Elements.Input.file
type t = file option

let create
  : unit -> t Note.signal * Brr.El.t
  = fun () ->

    let add_file_event, i = Elements.Input.file_loader
        (Jstr.v ".json") in

    let state = Note.S.hold
        None
        (Note.E.map (fun v -> Some v) add_file_event)
    in
    ( state
    , i )