zed 1.2 · OCaml Package

type 'a t

type clipboard = {

clipboard_get : unit -> Zed_rope.t;
clipboard_set : Zed_rope.t -> unit;

}

val new_clipboard : unit -> clipboard

val create : 
  ?editable:(int -> int -> bool) ->
  ?move:(int -> int -> int) ->
  ?clipboard:clipboard ->
  ?match_word:(Zed_rope.t -> int -> int option) ->
  ?locale:string option React.signal ->
  ?undo_size:int ->
  unit ->
  'a t

val match_by_regexp : Zed_re.t -> Zed_rope.t -> int -> int option

val get_data : 'a t -> 'a

val set_data : 'a t -> 'a -> unit

val clear_data : 'a t -> unit

val text : 'a t -> Zed_rope.t

val lines : 'a t -> Zed_lines.t

val changes : 'a t -> (int * int * int) React.event

val update : 'a t -> Zed_cursor.t list -> unit React.event

val erase_mode : 'a t -> bool React.signal

val get_erase_mode : 'a t -> bool

val set_erase_mode : 'a t -> bool -> unit

val mark : 'a t -> Zed_cursor.t

val selection : 'a t -> bool React.signal

val get_selection : 'a t -> bool

val set_selection : 'a t -> bool -> unit

val new_cursor : 'a t -> Zed_cursor.t

exception Cannot_edit

type 'a context

val context : ?check:bool -> 'a t -> Zed_cursor.t -> 'a context

val edit : 'a context -> 'a t

val cursor : 'a context -> Zed_cursor.t

val check : 'a context -> bool

val with_check : bool -> 'a context -> 'a context

val goto : 'a context -> ?set_wanted_column:bool -> int -> unit

val move : 'a context -> ?set_wanted_column:bool -> int -> unit

val move_line : 'a context -> int -> unit

val position : 'a context -> int

val line : 'a context -> int

val column : 'a context -> int

val at_bol : 'a context -> bool

val at_eol : 'a context -> bool

val at_bot : 'a context -> bool

val at_eot : 'a context -> bool

val insert : 'a context -> Zed_rope.t -> unit

val insert_no_erase : 'a context -> Zed_rope.t -> unit

val remove_next : 'a context -> int -> unit

val remove_prev : 'a context -> int -> unit

val remove : 'a context -> int -> unit

val replace : 'a context -> int -> Zed_rope.t -> unit

val newline : 'a context -> unit

val next_char : 'a context -> unit

val prev_char : 'a context -> unit

val next_line : 'a context -> unit

val prev_line : 'a context -> unit

val goto_bol : 'a context -> unit

val goto_eol : 'a context -> unit

val goto_bot : 'a context -> unit

val goto_eot : 'a context -> unit

val delete_next_char : 'a context -> unit

val delete_prev_char : 'a context -> unit

val delete_next_line : 'a context -> unit

val delete_prev_line : 'a context -> unit

val kill_next_line : 'a context -> unit

val kill_prev_line : 'a context -> unit

val switch_erase_mode : 'a context -> unit

val set_mark : 'a context -> unit

val goto_mark : 'a context -> unit

val copy : 'a context -> unit

val kill : 'a context -> unit

val yank : 'a context -> unit

val capitalize_word : 'a context -> unit

val lowercase_word : 'a context -> unit

val uppercase_word : 'a context -> unit

val next_word : 'a context -> unit

val prev_word : 'a context -> unit

val delete_next_word : 'a context -> unit

val delete_prev_word : 'a context -> unit

val kill_next_word : 'a context -> unit

val kill_prev_word : 'a context -> unit

val undo : 'a context -> unit

type action =

| Insert of CamomileLibrary.UChar.t
| Newline
| Next_char
| Prev_char
| Next_line
| Prev_line
| Goto_bol
| Goto_eol
| Goto_bot
| Goto_eot
| Delete_next_char
| Delete_prev_char
| Delete_next_line
| Delete_prev_line
| Kill_next_line
| Kill_prev_line
| Switch_erase_mode
| Set_mark
| Goto_mark
| Copy
| Kill
| Yank
| Capitalize_word
| Lowercase_word
| Uppercase_word
| Next_word
| Prev_word
| Delete_next_word
| Delete_prev_word
| Kill_next_word
| Kill_prev_word
| Undo

val get_action : action -> 'a context -> unit

val actions : (action * string) list

val doc_of_action : action -> string

val action_of_name : string -> action

val name_of_action : action -> string

package zed