this repo has no description
Use tooltips to show types
+25
-1
+2
merlinjs/editor/dune
+2
merlinjs/editor/dune
+23
-1
merlinjs/editor/merlin_editor.ml
+23
-1
merlinjs/editor/merlin_editor.ml
···
60
60
in
61
61
Autocomplete.create ~config ()
62
62
63
+
let tooltip_on_hover =
64
+
let open Tooltip in
65
+
hover_tooltip
66
+
(fun ~view ~pos ~side:_ ->
67
+
let open Fut.Syntax in
68
+
let doc = get_full_doc @@ Editor.View.state view in
69
+
let pos = `Offset pos in
70
+
let+ result = Merlin_client.query_type worker doc pos in
71
+
match result with
72
+
| (loc, `String type_, _)::_ ->
73
+
let create _view =
74
+
let dom = El.div [El.txt' type_] in
75
+
Tooltip_view.create ~dom ()
76
+
in
77
+
let pos = loc.loc_start.pos_cnum in
78
+
let end_ = loc.loc_end.pos_cnum in
79
+
Some (Tooltip.create ~pos ~end_ ~above:true ~arrow:true ~create ())
80
+
| _ -> None)
81
+
82
+
let ocaml = Jv.get Jv.global "__CM__mllike" |> Stream.Language.of_jv
83
+
let ocaml = Stream.Language.define ocaml
84
+
63
85
let init ?doc ?(exts = [||]) () =
64
86
let open Editor in
65
87
let config =
···
72
94
let view : View.t = View.create ~opts () in
73
95
(state, view)
74
96
75
-
let _editor = init ~exts:[| Lint.create linter; autocomplete |] ()
97
+
let _editor = init ~exts:[| ocaml; Lint.create linter; autocomplete; tooltip_on_hover |] ()