jon.recoil.org
this repo has no description
1open Code_mirror
2
3module Merlin =
4 Merlin_codemirror.Make (struct
5 let worker_url = "merlin_worker.bc.js"
6 let cmis = { Protocol.static_cmis = Static_files.stdlib_cmis; dynamic_cmis = None }
7 end)
8
9let basic_setup = Jv.get Jv.global "__CM__basic_setup" |> Extension.of_jv
10
11let init ?doc ?(exts = [||]) () =
12 let open Editor in
13 let extensions =
14 Array.append [| basic_setup; Merlin_codemirror.ocaml |] exts
15 in
16 let config =
17 State.Config.create ?doc ~extensions ()
18 in
19 let state = State.create ~config () in
20 let opts = View.opts
21 ~state
22 ~parent:(Merlin_codemirror.Utils.get_el_by_id "editor") ()
23 in
24 let view : View.t = View.create ~opts () in
25 (state, view)
26
27let _editor = init ~exts:Merlin.all_extensions ()