Module 1-Modal.Mode

module KeyTrie : sig ... end
type name = Name.t
type action = Mew__Mode.Make(Key)(Name).action =
| Switch of name
| Key of Key.t
| KeySeq of Key.t Stdlib.Queue.t
| Custom of unit -> unit
type t = Mew__Mode.Make(Key)(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