Module Tui_vi

type model
val disk : (string * string) list
val program : model Tui.program
val lines : model -> string list
val cursor : model -> int * int
val message : model -> string
val mode : model -> string
val file : model -> string -> string option
type parsed =
  1. | Incomplete
  2. | Invalid
  3. | Complete of int option * string list
val parse_command : string list -> parsed