Module Base.Mode

module KeyTrie : sig ... end
type name = Modal.Name.t
type action = Mew__Mode.Make(Mew_vi__.Modal.Key)(Mew_vi__.Modal.Name).action =
| Switch of name
| Key of Modal.Key.t
| KeySeq of Modal.Key.t Stdlib.Queue.t
| Custom of unit -> unit
type t = Mew__Mode.Make(Mew_vi__.Modal.Key)(Mew_vi__.Modal.Name).t = {
name : name;
timeout : float option;
bindings : action KeyTrie.node;
}
module Modes : sig ... end
type modes = t Modes.t
val name : t -> name
val timeout : t -> float option
val bindings : t -> action KeyTrie.node
val compare : t -> t -> int
val default_mode : 'a Modes.t -> Modes.key * 'a
val bind : t -> KeyTrie.path -> action -> unit
val unbind : t -> KeyTrie.path -> unit