blob: 7b656615455fe0ba9002c02f57b5709f9eb4d03b (
plain)
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
open Brr
open Note_brr
module Js = Js_of_ocaml.Js
let create :
?form:'a Note.signal * El.t
-> ?valid_on:bool Note.signal
-> title:Jstr.t
-> unit
-> 'a option Note.event =
fun ?form ?valid_on ~title () ->
(* Ensure we keep a track for the signal event.
This looks a bit like the old memory magment in C, as it require to
destroy the logger each time the popup is removed. *)
let log_opt =
Option.map (fun (values, _) -> Note.S.log values (fun _ -> ())) form
in
let close_btn =
El.span ~at:At.[ class' (Jstr.v "modal-close") ] [ El.txt' "×" ]
and submit_btn = El.input () ~at:At.[ type' (Jstr.v "submit") ] in
(match valid_on with
| None -> ()
| Some s ->
Elr.def_at (Jstr.v "disabled")
(Note.S.map
(fun value -> if not value then Some Jstr.empty else None)
s)
submit_btn);
let container =
match form with
| None -> El.div
| Some _ -> El.form
and body =
match form with
| None -> El.div []
| Some (_, content) -> content
and footer =
match form with
| None -> El.txt Jstr.empty
| Some _ -> El.div [ submit_btn ] ~at:At.[ class' (Jstr.v "row") ]
in
(* HTML Element creation *)
let el =
El.div
~at:At.[ class' (Jstr.v "modal") ]
[
container
~at:At.[ class' (Jstr.v "modal-content") ]
[
El.div
~at:At.[ class' (Jstr.v "modal-header") ]
[ close_btn; El.h3 [ El.txt title ] ]
; El.div ~at:At.[ class' (Jstr.v "modal-body") ] [ body ]
; El.div ~at:At.[ class' (Jstr.v "modal-footer") ] [ footer ]
]
]
in
let () = El.append_children (Document.body G.document) [ el ] in
(* Add the focus to the first input element inside the form *)
let () =
match form with
| Some (_, el) when El.is_el el -> (
match El.find_by_tag_name ~root:el (Jstr.v "input") with
| [] -> ()
| hd :: _ -> El.set_has_focus true hd)
| _ -> ()
in
(* Event handler *)
let close_event =
Evr.on_el Ev.click
(fun _ ->
El.remove el;
Option.iter Note.Logr.destroy log_opt;
None)
close_btn
and submit_event =
Evr.on_el Ev.click
(fun _ ->
El.remove el;
Option.iter Note.Logr.destroy log_opt;
Option.map (fun v -> Note.S.value (fst v)) form)
submit_btn
in
Note.E.select [ close_event; submit_event ]
|
