blob: 31eb1edef3e389f4906bfeae1ab1421122223cbb (
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
open Brr
open Note
open Brr_note
let get_element_by_id id =
id
|> Jv.Id.of_jv
|> Jv.to_jstr
|> Brr.Document.find_el_by_id Brr.G.document
let (let=?) : 'a option -> ('a -> unit) -> unit
= fun f opt -> Option.iter opt f
type state =
{ text : (Sounds.t list, string) result
; font : [`Telcontar | `Annatar ]}
module App = Application.Make(struct type t = state end)
module SetText = struct
type t = Jstr.t
let update t state =
let text =
Jstr.lowercased t
|> Jstr.to_string
|> Translator.Reader.process in
{ state with text }
end
module SetFont = struct
type t = string * El.t
let update (t, el) state =
let font = match t with
| "annatar" ->
El.set_class (Jstr.v "annatar") true el;
El.set_class (Jstr.v "telcontar") false el;
`Annatar
| _ ->
El.set_class (Jstr.v "annatar") false el;
El.set_class (Jstr.v "telcontar") true el;
`Telcontar in
{ state with font }
end
let init =
{ text = Ok []
; font = `Telcontar
}
let main id phon tengwar font =
match (Jv.is_none id) with
| true -> Console.(error [str "No element with id '%s' found"; id])
| false ->
let=? source = get_element_by_id id in
let=? phon = get_element_by_id phon in
let=? tengwar = get_element_by_id tengwar in
let=? font = get_element_by_id font in
let text_event =
Evr.on_el
Ev.input
(fun _ ->
App.E ( El.prop El.Prop.value source
, (module SetText: App.Event with type t = SetText.t ))
) source in
let font_event =
Evr.on_el
Ev.input
(fun _ ->
let value = El.prop El.Prop.value font in
let str = Jstr.to_string value in
App.E ( (str, tengwar)
, (module SetFont: App.Event with type t = SetFont.t ))
) font in
let ev = App.run
init
(E.select
[ text_event
; font_event ]
) in
let log state =
let transcription = state.text in
let res1 = Result.map
(fun t-> Sounds.repr (module Repr.Default) t)
transcription in
let () = match res1 with
| Ok response ->
El.set_prop El.Prop.value (Jstr.of_string response) phon
| Error _err -> () in
let res2 = Result.map
(fun t->
match state.font with
| `Annatar -> Sounds.repr (module Repr.Anatar) t
| `Telcontar -> Sounds.repr (module Repr.Telcontar) t)
transcription in
let () = match res2 with
| Ok response ->
El.set_prop El.Prop.value (Jstr.of_string response) tengwar
| Error _err -> () in
()
in
Logr.hold (S.log ev log)
let () =
let open Jv in
let main = obj
[| "run", (repr main) |] in
set global "lib" main
|
