this repo has no description
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

Use tooltips to show types

+25 -1
+2
merlinjs/editor/dune
··· 10 10 code-mirror 11 11 code-mirror.lint 12 12 code-mirror.autocomplete 13 + code-mirror.tooltip 14 + code-mirror.stream 13 15 ))
+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 |] ()