+1 -1

src/editor.ml

··· 73 73 74 74 type opts = Jv.t 75 75 76 76 - let opts ?state ?root ?dispatch ?parent () = 76 76 + let opts ?state ?parent ?root ?dispatch () = 77 77 let o = Jv.obj [||] in 78 78 Jv.set_if_some o "state" state; 79 79 Jv.set_if_some o "root" (Option.map Brr.Document.to_jv root);

+1 -1

src/editor.mli

··· 56 56 (* TODO: Dispatch function *) 57 57 val opts : 58 58 ?state:State.t -> 59 59 + ?parent:Brr.El.t -> 59 60 ?root:Brr.El.document -> 60 61 ?dispatch:Jv.t -> 61 61 - ?parent:Brr.El.t -> 62 62 unit -> 63 63 opts 64 64

+2 -3

src/tooltip/tooltip.ml

··· 1 1 open Code_mirror 2 2 3 3 - let tooltip = Jv.get Jv.global "__CM__tooltip" 4 4 - 5 3 module Tooltip_view = struct 6 4 type t = Jv.t 7 5 ··· 93 91 o 94 92 95 93 let hover_tooltip ?config source = 94 94 + (* let g = Jv.get Jv.global "__CM__hoverTooltip" in *) 96 95 let source = 97 96 Jv.repr @@ fun view pos side -> 98 97 let fut = ··· 107 106 if Option.is_none config then [| source |] 108 107 else [| source; Option.get config |] 109 108 in 110 110 - Jv.call tooltip "hoverTooltip" args |> Extension.of_jv 109 109 + Jv.call Jv.global "__CM__hoverTooltip" args |> Extension.of_jv

-3

src/tooltip/tooltip.mli

··· 1 1 open Code_mirror 2 2 3 3 - val tooltip : Jv.t 4 4 - (** Global tooltip value *) 5 5 - 6 3 module Tooltip_view : sig 7 4 (** Describes the way a tooltip is displayed. *) 8 5