Module `Ace`

val create_editor : Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t -> 'a editor
val set_mode : 'a editor -> string -> unit
val set_theme : 'a editor -> string -> unit
val read_range : Ace__.Ace_types.range Js_of_ocaml.Js.t -> (int * int) * (int * int)
val create_range : Ace__.Ace_types.position Js_of_ocaml.Js.t -> Ace__.Ace_types.position Js_of_ocaml.Js.t -> Ace__.Ace_types.range Js_of_ocaml.Js.t
val create_position : int -> int -> Ace__.Ace_types.position Js_of_ocaml.Js.t
val read_position : Ace__.Ace_types.position Js_of_ocaml.Js.t -> int * int
val greater_position : Ace__.Ace_types.position Js_of_ocaml.Js.t -> Ace__.Ace_types.position Js_of_ocaml.Js.t -> bool
val get_contents : ?⁠range:Ace__.Ace_types.range Js_of_ocaml.Js.t -> 'a editor -> string
val get_line : 'a editor -> int -> string
val set_contents : 'a editor -> string -> unit
val get_selection_range : 'a editor -> Ace__.Ace_types.range Js_of_ocaml.Js.t
val get_selection : 'a editor -> string

val set_mark : 'a editor -> ?⁠loc:loc -> ?⁠type_:mark_type -> string -> unit
val clear_marks : 'a editor -> unit
val record_event_handler : 'a editor -> string -> (unit -> unit) -> unit
val set_background_color : 'a editor -> string -> unit
val add_class : 'a editor -> string -> unit
val remove_class : 'a editor -> string -> unit
val focus : 'a editor -> unit
val resize : 'a editor -> bool -> unit
val require : string -> unit
val show_keybindings : 'a editor -> unit
val add_keybinding : 'a editor -> ?⁠ro:bool -> ?⁠scrollIntoView:string -> ?⁠multiSelectAction:string -> string -> string -> ('a editor -> unit) -> unit
val set_font_size : 'a editor -> int -> unit
val set_tab_size : 'a editor -> int -> unit
val get_state : 'a editor -> int -> < .. > Js_of_ocaml.Js.t
val get_last : 'a editor -> Ace__.Ace_types.position Js_of_ocaml.Js.t

val document : 'a editor -> doc
val replace : doc -> Ace__.Ace_types.range Js_of_ocaml.Js.t -> string -> unit
val delete : doc -> Ace__.Ace_types.range Js_of_ocaml.Js.t -> unit
val remove : 'a editor -> unit
val get_custom_data : 'a editor -> 'a
val set_custom_data : 'a editor -> 'a -> unit

type 'state helpers = { initial_state : unit -> 'state; get_next_line_indent : 'state -> line:string -> tab:string -> string; get_line_tokens : string -> 'state -> int -> doc -> 'state * token list; check_outdent : ('state -> string -> string -> bool) option; auto_outdent : ('state -> Ace__.Ace_types.document Js_of_ocaml.Js.t -> int -> unit) option; }