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
open! Core
open! Async_kernel
open! Import
open Js_of_ocaml
include Virtual_dom.Vdom.Effect
module Deferred_fun_arg = struct
module Action = struct
type 'r t = T : 'a * ('a -> 'r Deferred.t) -> 'r t
end
let handle (Action.T (a, f)) ~on_response =
don't_wait_for
(let%map.Deferred result = f a in
on_response result)
;;
end
module Deferred_fun = Ui_effect.Define1 (Deferred_fun_arg)
let of_deferred_fun f a = Deferred_fun.inject (T (a, f))
module Focus = struct
let on_effect =
let focus_fun path =
let element =
Dom_html.document##querySelector
(Js.string [%string "[data-focus-handle=%{path}]"])
in
match Js.Opt.to_option element with
| None -> ()
| Some element -> element##focus
in
let focus_effect = of_sync_fun focus_fun in
let open Bonsai.Let_syntax in
fun ?(name_for_testing = "element") () ->
match Util.am_running_how with
| `Node_test | `Node_benchmark | `Node ->
let print_effect = print_s [%message "focus effect for" name_for_testing] in
Bonsai.const (Vdom.Attr.empty, print_effect)
| `Browser | `Browser_benchmark ->
let%sub path = Bonsai.path_id in
let%arr path = path in
let attr = Vdom.Attr.create "data-focus-handle" path in
attr, focus_effect path
;;
let on_activate ?name_for_testing () =
let open Bonsai.Let_syntax in
let%sub attr, effect = on_effect ?name_for_testing () in
let%sub () = Bonsai.Edge.lifecycle ~on_activate:effect () in
return attr
;;
end