Source file wrappers.ml

open! Base
open! Msgpack
open Types

let nvim_buf_line_count ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_buf_line_count"; params = Array [ buffer ]; witness = Integer }
;;

let buffer_get_line ~buffer ~index =
  let buffer = Buffer.to_msgpack buffer in
  let index = Msgpack.Integer index in
  { name = "buffer_get_line"; params = Array [ buffer; index ]; witness = String }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_buf_attach ~buffer ~send_buffer ~opts =
  let buffer = Buffer.to_msgpack buffer in
  let send_buffer = Msgpack.Boolean send_buffer in
  let opts = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) opts) in
  { name = "nvim_buf_attach"
  ; params = Array [ buffer; send_buffer; opts ]
  ; witness = Boolean
  }
;;

let nvim_buf_detach ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_buf_detach"; params = Array [ buffer ]; witness = Boolean }
;;

let buffer_set_line ~buffer ~index ~line =
  let buffer = Buffer.to_msgpack buffer in
  let index = Msgpack.Integer index in
  let line = Msgpack.String line in
  { name = "buffer_set_line"; params = Array [ buffer; index; line ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_del_line ~buffer ~index =
  let buffer = Buffer.to_msgpack buffer in
  let index = Msgpack.Integer index in
  { name = "buffer_del_line"; params = Array [ buffer; index ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_get_line_slice ~buffer ~start ~end_ ~include_start ~include_end =
  let buffer = Buffer.to_msgpack buffer in
  let start = Msgpack.Integer start in
  let end_ = Msgpack.Integer end_ in
  let include_start = Msgpack.Boolean include_start in
  let include_end = Msgpack.Boolean include_end in
  { name = "buffer_get_line_slice"
  ; params = Array [ buffer; start; end_; include_start; include_end ]
  ; witness = Array Object
  }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_buf_get_lines ~buffer ~start ~end_ ~strict_indexing =
  let buffer = Buffer.to_msgpack buffer in
  let start = Msgpack.Integer start in
  let end_ = Msgpack.Integer end_ in
  let strict_indexing = Msgpack.Boolean strict_indexing in
  { name = "nvim_buf_get_lines"
  ; params = Array [ buffer; start; end_; strict_indexing ]
  ; witness = Array Object
  }
;;

let buffer_set_line_slice ~buffer ~start ~end_ ~include_start ~include_end ~replacement =
  let buffer = Buffer.to_msgpack buffer in
  let start = Msgpack.Integer start in
  let end_ = Msgpack.Integer end_ in
  let include_start = Msgpack.Boolean include_start in
  let include_end = Msgpack.Boolean include_end in
  let replacement = Msgpack.Array (List.map ~f:(fun v -> v) replacement) in
  { name = "buffer_set_line_slice"
  ; params = Array [ buffer; start; end_; include_start; include_end; replacement ]
  ; witness = Nil
  }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_buf_set_lines ~buffer ~start ~end_ ~strict_indexing ~replacement =
  let buffer = Buffer.to_msgpack buffer in
  let start = Msgpack.Integer start in
  let end_ = Msgpack.Integer end_ in
  let strict_indexing = Msgpack.Boolean strict_indexing in
  let replacement = Msgpack.Array (List.map ~f:(fun v -> v) replacement) in
  { name = "nvim_buf_set_lines"
  ; params = Array [ buffer; start; end_; strict_indexing; replacement ]
  ; witness = Nil
  }
;;

let nvim_buf_get_offset ~buffer ~index =
  let buffer = Buffer.to_msgpack buffer in
  let index = Msgpack.Integer index in
  { name = "nvim_buf_get_offset"; params = Array [ buffer; index ]; witness = Integer }
;;

let nvim_buf_get_var ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "nvim_buf_get_var"; params = Array [ buffer; name ]; witness = Object }
;;

let nvim_buf_get_changedtick ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_buf_get_changedtick"; params = Array [ buffer ]; witness = Integer }
;;

let nvim_buf_get_keymap ~buffer ~mode =
  let buffer = Buffer.to_msgpack buffer in
  let mode = Msgpack.String mode in
  { name = "nvim_buf_get_keymap"
  ; params = Array [ buffer; mode ]
  ; witness = Array Object
  }
;;

let nvim_buf_get_commands ~buffer ~opts =
  let buffer = Buffer.to_msgpack buffer in
  let opts = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) opts) in
  { name = "nvim_buf_get_commands"; params = Array [ buffer; opts ]; witness = Dict }
;;

let nvim_buf_set_var ~buffer ~name ~value =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_buf_set_var"; params = Array [ buffer; name; value ]; witness = Nil }
;;

let nvim_buf_del_var ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "nvim_buf_del_var"; params = Array [ buffer; name ]; witness = Nil }
;;

let buffer_set_var ~buffer ~name ~value =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  let value = value in
  { name = "buffer_set_var"; params = Array [ buffer; name; value ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_del_var ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "buffer_del_var"; params = Array [ buffer; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_buf_get_option ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "nvim_buf_get_option"; params = Array [ buffer; name ]; witness = Object }
;;

let nvim_buf_set_option ~buffer ~name ~value =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_buf_set_option"; params = Array [ buffer; name; value ]; witness = Nil }
;;

let nvim_buf_get_number ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_buf_get_number"; params = Array [ buffer ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 2 "]
;;

let nvim_buf_get_name ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_buf_get_name"; params = Array [ buffer ]; witness = String }
;;

let nvim_buf_set_name ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "nvim_buf_set_name"; params = Array [ buffer; name ]; witness = Nil }
;;

let nvim_buf_is_loaded ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_buf_is_loaded"; params = Array [ buffer ]; witness = Boolean }
;;

let nvim_buf_is_valid ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_buf_is_valid"; params = Array [ buffer ]; witness = Boolean }
;;

let buffer_insert ~buffer ~lnum ~lines =
  let buffer = Buffer.to_msgpack buffer in
  let lnum = Msgpack.Integer lnum in
  let lines = Msgpack.Array (List.map ~f:(fun v -> v) lines) in
  { name = "buffer_insert"; params = Array [ buffer; lnum; lines ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_buf_get_mark ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "nvim_buf_get_mark"; params = Array [ buffer; name ]; witness = Array Object }
;;

let nvim_buf_add_highlight ~buffer ~ns_id ~hl_group ~line ~col_start ~col_end =
  let buffer = Buffer.to_msgpack buffer in
  let ns_id = Msgpack.Integer ns_id in
  let hl_group = Msgpack.String hl_group in
  let line = Msgpack.Integer line in
  let col_start = Msgpack.Integer col_start in
  let col_end = Msgpack.Integer col_end in
  { name = "nvim_buf_add_highlight"
  ; params = Array [ buffer; ns_id; hl_group; line; col_start; col_end ]
  ; witness = Integer
  }
;;

let nvim_buf_clear_namespace ~buffer ~ns_id ~line_start ~line_end =
  let buffer = Buffer.to_msgpack buffer in
  let ns_id = Msgpack.Integer ns_id in
  let line_start = Msgpack.Integer line_start in
  let line_end = Msgpack.Integer line_end in
  { name = "nvim_buf_clear_namespace"
  ; params = Array [ buffer; ns_id; line_start; line_end ]
  ; witness = Nil
  }
;;

let nvim_buf_clear_highlight ~buffer ~ns_id ~line_start ~line_end =
  let buffer = Buffer.to_msgpack buffer in
  let ns_id = Msgpack.Integer ns_id in
  let line_start = Msgpack.Integer line_start in
  let line_end = Msgpack.Integer line_end in
  { name = "nvim_buf_clear_highlight"
  ; params = Array [ buffer; ns_id; line_start; line_end ]
  ; witness = Nil
  }
;;

let nvim_buf_set_virtual_text ~buffer ~ns_id ~line ~chunks ~opts =
  let buffer = Buffer.to_msgpack buffer in
  let ns_id = Msgpack.Integer ns_id in
  let line = Msgpack.Integer line in
  let chunks = Msgpack.Array (List.map ~f:(fun v -> v) chunks) in
  let opts = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) opts) in
  { name = "nvim_buf_set_virtual_text"
  ; params = Array [ buffer; ns_id; line; chunks; opts ]
  ; witness = Integer
  }
;;

let nvim_tabpage_list_wins ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "nvim_tabpage_list_wins"; params = Array [ tabpage ]; witness = Array Object }
;;

let nvim_tabpage_get_var ~tabpage ~name =
  let tabpage = Tabpage.to_msgpack tabpage in
  let name = Msgpack.String name in
  { name = "nvim_tabpage_get_var"; params = Array [ tabpage; name ]; witness = Object }
;;

let nvim_tabpage_set_var ~tabpage ~name ~value =
  let tabpage = Tabpage.to_msgpack tabpage in
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_tabpage_set_var"
  ; params = Array [ tabpage; name; value ]
  ; witness = Nil
  }
;;

let nvim_tabpage_del_var ~tabpage ~name =
  let tabpage = Tabpage.to_msgpack tabpage in
  let name = Msgpack.String name in
  { name = "nvim_tabpage_del_var"; params = Array [ tabpage; name ]; witness = Nil }
;;

let tabpage_set_var ~tabpage ~name ~value =
  let tabpage = Tabpage.to_msgpack tabpage in
  let name = Msgpack.String name in
  let value = value in
  { name = "tabpage_set_var"; params = Array [ tabpage; name; value ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let tabpage_del_var ~tabpage ~name =
  let tabpage = Tabpage.to_msgpack tabpage in
  let name = Msgpack.String name in
  { name = "tabpage_del_var"; params = Array [ tabpage; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_tabpage_get_win ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "nvim_tabpage_get_win"; params = Array [ tabpage ]; witness = Window }
;;

let nvim_tabpage_get_number ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "nvim_tabpage_get_number"; params = Array [ tabpage ]; witness = Integer }
;;

let nvim_tabpage_is_valid ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "nvim_tabpage_is_valid"; params = Array [ tabpage ]; witness = Boolean }
;;

let nvim_ui_attach ~width ~height ~options =
  let width = Msgpack.Integer width in
  let height = Msgpack.Integer height in
  let options = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) options) in
  { name = "nvim_ui_attach"; params = Array [ width; height; options ]; witness = Nil }
;;

let ui_attach ~width ~height ~enable_rgb =
  let width = Msgpack.Integer width in
  let height = Msgpack.Integer height in
  let enable_rgb = Msgpack.Boolean enable_rgb in
  { name = "ui_attach"; params = Array [ width; height; enable_rgb ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_ui_detach = { name = "nvim_ui_detach"; params = Array []; witness = Nil }

let nvim_ui_try_resize ~width ~height =
  let width = Msgpack.Integer width in
  let height = Msgpack.Integer height in
  { name = "nvim_ui_try_resize"; params = Array [ width; height ]; witness = Nil }
;;

let nvim_ui_set_option ~name ~value =
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_ui_set_option"; params = Array [ name; value ]; witness = Nil }
;;

let nvim_command ~command =
  let command = Msgpack.String command in
  { name = "nvim_command"; params = Array [ command ]; witness = Nil }
;;

let nvim_get_hl_by_name ~name ~rgb =
  let name = Msgpack.String name in
  let rgb = Msgpack.Boolean rgb in
  { name = "nvim_get_hl_by_name"; params = Array [ name; rgb ]; witness = Dict }
;;

let nvim_get_hl_by_id ~hl_id ~rgb =
  let hl_id = Msgpack.Integer hl_id in
  let rgb = Msgpack.Boolean rgb in
  { name = "nvim_get_hl_by_id"; params = Array [ hl_id; rgb ]; witness = Dict }
;;

let nvim_feedkeys ~keys ~mode ~escape_csi =
  let keys = Msgpack.String keys in
  let mode = Msgpack.String mode in
  let escape_csi = Msgpack.Boolean escape_csi in
  { name = "nvim_feedkeys"; params = Array [ keys; mode; escape_csi ]; witness = Nil }
;;

let nvim_input ~keys =
  let keys = Msgpack.String keys in
  { name = "nvim_input"; params = Array [ keys ]; witness = Integer }
;;

let nvim_replace_termcodes ~str ~from_part ~do_lt ~special =
  let str = Msgpack.String str in
  let from_part = Msgpack.Boolean from_part in
  let do_lt = Msgpack.Boolean do_lt in
  let special = Msgpack.Boolean special in
  { name = "nvim_replace_termcodes"
  ; params = Array [ str; from_part; do_lt; special ]
  ; witness = String
  }
;;

let nvim_command_output ~command =
  let command = Msgpack.String command in
  { name = "nvim_command_output"; params = Array [ command ]; witness = String }
;;

let nvim_eval ~expr =
  let expr = Msgpack.String expr in
  { name = "nvim_eval"; params = Array [ expr ]; witness = Object }
;;

let nvim_execute_lua ~code ~args =
  let code = Msgpack.String code in
  let args = Msgpack.Array (List.map ~f:(fun v -> v) args) in
  { name = "nvim_execute_lua"; params = Array [ code; args ]; witness = Object }
;;

let nvim_call_function ~fn ~args =
  let fn = Msgpack.String fn in
  let args = Msgpack.Array (List.map ~f:(fun v -> v) args) in
  { name = "nvim_call_function"; params = Array [ fn; args ]; witness = Object }
;;

let nvim_call_dict_function ~dict ~fn ~args =
  let dict = dict in
  let fn = Msgpack.String fn in
  let args = Msgpack.Array (List.map ~f:(fun v -> v) args) in
  { name = "nvim_call_dict_function"
  ; params = Array [ dict; fn; args ]
  ; witness = Object
  }
;;

let nvim_strwidth ~text =
  let text = Msgpack.String text in
  { name = "nvim_strwidth"; params = Array [ text ]; witness = Integer }
;;

let nvim_list_runtime_paths =
  { name = "nvim_list_runtime_paths"; params = Array []; witness = Array Object }
;;

let nvim_set_current_dir ~dir =
  let dir = Msgpack.String dir in
  { name = "nvim_set_current_dir"; params = Array [ dir ]; witness = Nil }
;;

let nvim_get_current_line =
  { name = "nvim_get_current_line"; params = Array []; witness = String }
;;

let nvim_set_current_line ~line =
  let line = Msgpack.String line in
  { name = "nvim_set_current_line"; params = Array [ line ]; witness = Nil }
;;

let nvim_del_current_line =
  { name = "nvim_del_current_line"; params = Array []; witness = Nil }
;;

let nvim_get_var ~name =
  let name = Msgpack.String name in
  { name = "nvim_get_var"; params = Array [ name ]; witness = Object }
;;

let nvim_set_var ~name ~value =
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_set_var"; params = Array [ name; value ]; witness = Nil }
;;

let nvim_del_var ~name =
  let name = Msgpack.String name in
  { name = "nvim_del_var"; params = Array [ name ]; witness = Nil }
;;

let vim_set_var ~name ~value =
  let name = Msgpack.String name in
  let value = value in
  { name = "vim_set_var"; params = Array [ name; value ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_del_var ~name =
  let name = Msgpack.String name in
  { name = "vim_del_var"; params = Array [ name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_get_vvar ~name =
  let name = Msgpack.String name in
  { name = "nvim_get_vvar"; params = Array [ name ]; witness = Object }
;;

let nvim_get_option ~name =
  let name = Msgpack.String name in
  { name = "nvim_get_option"; params = Array [ name ]; witness = Object }
;;

let nvim_set_option ~name ~value =
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_set_option"; params = Array [ name; value ]; witness = Nil }
;;

let nvim_out_write ~str =
  let str = Msgpack.String str in
  { name = "nvim_out_write"; params = Array [ str ]; witness = Nil }
;;

let nvim_err_write ~str =
  let str = Msgpack.String str in
  { name = "nvim_err_write"; params = Array [ str ]; witness = Nil }
;;

let nvim_err_writeln ~str =
  let str = Msgpack.String str in
  { name = "nvim_err_writeln"; params = Array [ str ]; witness = Nil }
;;

let nvim_list_bufs =
  { name = "nvim_list_bufs"; params = Array []; witness = Array Object }
;;

let nvim_get_current_buf =
  { name = "nvim_get_current_buf"; params = Array []; witness = Buffer }
;;

let nvim_set_current_buf ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_set_current_buf"; params = Array [ buffer ]; witness = Nil }
;;

let nvim_list_wins =
  { name = "nvim_list_wins"; params = Array []; witness = Array Object }
;;

let nvim_get_current_win =
  { name = "nvim_get_current_win"; params = Array []; witness = Window }
;;

let nvim_set_current_win ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_set_current_win"; params = Array [ window ]; witness = Nil }
;;

let nvim_list_tabpages =
  { name = "nvim_list_tabpages"; params = Array []; witness = Array Object }
;;

let nvim_get_current_tabpage =
  { name = "nvim_get_current_tabpage"; params = Array []; witness = Tabpage }
;;

let nvim_set_current_tabpage ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "nvim_set_current_tabpage"; params = Array [ tabpage ]; witness = Nil }
;;

let nvim_create_namespace ~name =
  let name = Msgpack.String name in
  { name = "nvim_create_namespace"; params = Array [ name ]; witness = Integer }
;;

let nvim_get_namespaces =
  { name = "nvim_get_namespaces"; params = Array []; witness = Dict }
;;

let nvim_subscribe ~event =
  let event = Msgpack.String event in
  { name = "nvim_subscribe"; params = Array [ event ]; witness = Nil }
;;

let nvim_unsubscribe ~event =
  let event = Msgpack.String event in
  { name = "nvim_unsubscribe"; params = Array [ event ]; witness = Nil }
;;

let nvim_get_color_by_name ~name =
  let name = Msgpack.String name in
  { name = "nvim_get_color_by_name"; params = Array [ name ]; witness = Integer }
;;

let nvim_get_color_map =
  { name = "nvim_get_color_map"; params = Array []; witness = Dict }
;;

let nvim_get_mode = { name = "nvim_get_mode"; params = Array []; witness = Dict }

let nvim_get_keymap ~mode =
  let mode = Msgpack.String mode in
  { name = "nvim_get_keymap"; params = Array [ mode ]; witness = Array Object }
;;

let nvim_get_commands ~opts =
  let opts = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) opts) in
  { name = "nvim_get_commands"; params = Array [ opts ]; witness = Dict }
;;

let nvim_get_api_info =
  { name = "nvim_get_api_info"; params = Array []; witness = Array Object }
;;

let nvim_set_client_info ~name ~version ~type_ ~methods ~attributes =
  let name = Msgpack.String name in
  let version = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) version) in
  let type_ = Msgpack.String type_ in
  let methods = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) methods) in
  let attributes = Msgpack.Map (List.map ~f:(fun (s, v) -> s, v) attributes) in
  { name = "nvim_set_client_info"
  ; params = Array [ name; version; type_; methods; attributes ]
  ; witness = Nil
  }
;;

let nvim_get_chan_info ~chan =
  let chan = Msgpack.Integer chan in
  { name = "nvim_get_chan_info"; params = Array [ chan ]; witness = Dict }
;;

let nvim_list_chans =
  { name = "nvim_list_chans"; params = Array []; witness = Array Object }
;;

let nvim_call_atomic ~calls =
  let calls = Msgpack.Array (List.map ~f:(fun v -> v) calls) in
  { name = "nvim_call_atomic"; params = Array [ calls ]; witness = Array Object }
;;

let nvim_parse_expression ~expr ~flags ~highlight =
  let expr = Msgpack.String expr in
  let flags = Msgpack.String flags in
  let highlight = Msgpack.Boolean highlight in
  { name = "nvim_parse_expression"
  ; params = Array [ expr; flags; highlight ]
  ; witness = Dict
  }
;;

let nvim_list_uis = { name = "nvim_list_uis"; params = Array []; witness = Array Object }

let nvim_get_proc_children ~pid =
  let pid = Msgpack.Integer pid in
  { name = "nvim_get_proc_children"; params = Array [ pid ]; witness = Array Object }
;;

let nvim_get_proc ~pid =
  let pid = Msgpack.Integer pid in
  { name = "nvim_get_proc"; params = Array [ pid ]; witness = Object }
;;

let nvim_win_get_buf ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_get_buf"; params = Array [ window ]; witness = Buffer }
;;

let nvim_win_set_buf ~window ~buffer =
  let window = Window.to_msgpack window in
  let buffer = Buffer.to_msgpack buffer in
  { name = "nvim_win_set_buf"; params = Array [ window; buffer ]; witness = Nil }
;;

let nvim_win_get_cursor ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_get_cursor"; params = Array [ window ]; witness = Array Object }
;;

let nvim_win_set_cursor ~window ~pos =
  let window = Window.to_msgpack window in
  let pos = Msgpack.Array (List.map ~f:(fun v -> v) pos) in
  { name = "nvim_win_set_cursor"; params = Array [ window; pos ]; witness = Nil }
;;

let nvim_win_get_height ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_get_height"; params = Array [ window ]; witness = Integer }
;;

let nvim_win_set_height ~window ~height =
  let window = Window.to_msgpack window in
  let height = Msgpack.Integer height in
  { name = "nvim_win_set_height"; params = Array [ window; height ]; witness = Nil }
;;

let nvim_win_get_width ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_get_width"; params = Array [ window ]; witness = Integer }
;;

let nvim_win_set_width ~window ~width =
  let window = Window.to_msgpack window in
  let width = Msgpack.Integer width in
  { name = "nvim_win_set_width"; params = Array [ window; width ]; witness = Nil }
;;

let nvim_win_get_var ~window ~name =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  { name = "nvim_win_get_var"; params = Array [ window; name ]; witness = Object }
;;

let nvim_win_set_var ~window ~name ~value =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_win_set_var"; params = Array [ window; name; value ]; witness = Nil }
;;

let nvim_win_del_var ~window ~name =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  { name = "nvim_win_del_var"; params = Array [ window; name ]; witness = Nil }
;;

let window_set_var ~window ~name ~value =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  let value = value in
  { name = "window_set_var"; params = Array [ window; name; value ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_del_var ~window ~name =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  { name = "window_del_var"; params = Array [ window; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let nvim_win_get_option ~window ~name =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  { name = "nvim_win_get_option"; params = Array [ window; name ]; witness = Object }
;;

let nvim_win_set_option ~window ~name ~value =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  let value = value in
  { name = "nvim_win_set_option"; params = Array [ window; name; value ]; witness = Nil }
;;

let nvim_win_get_position ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_get_position"; params = Array [ window ]; witness = Array Object }
;;

let nvim_win_get_tabpage ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_get_tabpage"; params = Array [ window ]; witness = Tabpage }
;;

let nvim_win_get_number ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_get_number"; params = Array [ window ]; witness = Integer }
;;

let nvim_win_is_valid ~window =
  let window = Window.to_msgpack window in
  { name = "nvim_win_is_valid"; params = Array [ window ]; witness = Boolean }
;;

let buffer_line_count ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "buffer_line_count"; params = Array [ buffer ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_get_lines ~buffer ~start ~end_ ~strict_indexing =
  let buffer = Buffer.to_msgpack buffer in
  let start = Msgpack.Integer start in
  let end_ = Msgpack.Integer end_ in
  let strict_indexing = Msgpack.Boolean strict_indexing in
  { name = "buffer_get_lines"
  ; params = Array [ buffer; start; end_; strict_indexing ]
  ; witness = Array Object
  }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_set_lines ~buffer ~start ~end_ ~strict_indexing ~replacement =
  let buffer = Buffer.to_msgpack buffer in
  let start = Msgpack.Integer start in
  let end_ = Msgpack.Integer end_ in
  let strict_indexing = Msgpack.Boolean strict_indexing in
  let replacement = Msgpack.Array (List.map ~f:(fun v -> v) replacement) in
  { name = "buffer_set_lines"
  ; params = Array [ buffer; start; end_; strict_indexing; replacement ]
  ; witness = Nil
  }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_get_var ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "buffer_get_var"; params = Array [ buffer; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_get_option ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "buffer_get_option"; params = Array [ buffer; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_set_option ~buffer ~name ~value =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  let value = value in
  { name = "buffer_set_option"; params = Array [ buffer; name; value ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_get_number ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "buffer_get_number"; params = Array [ buffer ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_get_name ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "buffer_get_name"; params = Array [ buffer ]; witness = String }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_set_name ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "buffer_set_name"; params = Array [ buffer; name ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_is_valid ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "buffer_is_valid"; params = Array [ buffer ]; witness = Boolean }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_get_mark ~buffer ~name =
  let buffer = Buffer.to_msgpack buffer in
  let name = Msgpack.String name in
  { name = "buffer_get_mark"; params = Array [ buffer; name ]; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_add_highlight ~buffer ~ns_id ~hl_group ~line ~col_start ~col_end =
  let buffer = Buffer.to_msgpack buffer in
  let ns_id = Msgpack.Integer ns_id in
  let hl_group = Msgpack.String hl_group in
  let line = Msgpack.Integer line in
  let col_start = Msgpack.Integer col_start in
  let col_end = Msgpack.Integer col_end in
  { name = "buffer_add_highlight"
  ; params = Array [ buffer; ns_id; hl_group; line; col_start; col_end ]
  ; witness = Integer
  }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let buffer_clear_highlight ~buffer ~ns_id ~line_start ~line_end =
  let buffer = Buffer.to_msgpack buffer in
  let ns_id = Msgpack.Integer ns_id in
  let line_start = Msgpack.Integer line_start in
  let line_end = Msgpack.Integer line_end in
  { name = "buffer_clear_highlight"
  ; params = Array [ buffer; ns_id; line_start; line_end ]
  ; witness = Nil
  }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let tabpage_get_windows ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "tabpage_get_windows"; params = Array [ tabpage ]; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let tabpage_get_var ~tabpage ~name =
  let tabpage = Tabpage.to_msgpack tabpage in
  let name = Msgpack.String name in
  { name = "tabpage_get_var"; params = Array [ tabpage; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let tabpage_get_window ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "tabpage_get_window"; params = Array [ tabpage ]; witness = Window }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let tabpage_is_valid ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "tabpage_is_valid"; params = Array [ tabpage ]; witness = Boolean }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let ui_detach =
  { name = "ui_detach"; params = Array []; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let ui_try_resize ~width ~height =
  let width = Msgpack.Integer width in
  let height = Msgpack.Integer height in
  { name = "ui_try_resize"; params = Array [ width; height ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_command ~command =
  let command = Msgpack.String command in
  { name = "vim_command"; params = Array [ command ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_feedkeys ~keys ~mode ~escape_csi =
  let keys = Msgpack.String keys in
  let mode = Msgpack.String mode in
  let escape_csi = Msgpack.Boolean escape_csi in
  { name = "vim_feedkeys"; params = Array [ keys; mode; escape_csi ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_input ~keys =
  let keys = Msgpack.String keys in
  { name = "vim_input"; params = Array [ keys ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_replace_termcodes ~str ~from_part ~do_lt ~special =
  let str = Msgpack.String str in
  let from_part = Msgpack.Boolean from_part in
  let do_lt = Msgpack.Boolean do_lt in
  let special = Msgpack.Boolean special in
  { name = "vim_replace_termcodes"
  ; params = Array [ str; from_part; do_lt; special ]
  ; witness = String
  }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_command_output ~command =
  let command = Msgpack.String command in
  { name = "vim_command_output"; params = Array [ command ]; witness = String }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_eval ~expr =
  let expr = Msgpack.String expr in
  { name = "vim_eval"; params = Array [ expr ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_call_function ~fn ~args =
  let fn = Msgpack.String fn in
  let args = Msgpack.Array (List.map ~f:(fun v -> v) args) in
  { name = "vim_call_function"; params = Array [ fn; args ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_strwidth ~text =
  let text = Msgpack.String text in
  { name = "vim_strwidth"; params = Array [ text ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_list_runtime_paths =
  { name = "vim_list_runtime_paths"; params = Array []; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_change_directory ~dir =
  let dir = Msgpack.String dir in
  { name = "vim_change_directory"; params = Array [ dir ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_current_line =
  { name = "vim_get_current_line"; params = Array []; witness = String }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_set_current_line ~line =
  let line = Msgpack.String line in
  { name = "vim_set_current_line"; params = Array [ line ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_del_current_line =
  { name = "vim_del_current_line"; params = Array []; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_var ~name =
  let name = Msgpack.String name in
  { name = "vim_get_var"; params = Array [ name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_vvar ~name =
  let name = Msgpack.String name in
  { name = "vim_get_vvar"; params = Array [ name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_option ~name =
  let name = Msgpack.String name in
  { name = "vim_get_option"; params = Array [ name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_set_option ~name ~value =
  let name = Msgpack.String name in
  let value = value in
  { name = "vim_set_option"; params = Array [ name; value ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_out_write ~str =
  let str = Msgpack.String str in
  { name = "vim_out_write"; params = Array [ str ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_err_write ~str =
  let str = Msgpack.String str in
  { name = "vim_err_write"; params = Array [ str ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_report_error ~str =
  let str = Msgpack.String str in
  { name = "vim_report_error"; params = Array [ str ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_buffers =
  { name = "vim_get_buffers"; params = Array []; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_current_buffer =
  { name = "vim_get_current_buffer"; params = Array []; witness = Buffer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_set_current_buffer ~buffer =
  let buffer = Buffer.to_msgpack buffer in
  { name = "vim_set_current_buffer"; params = Array [ buffer ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_windows =
  { name = "vim_get_windows"; params = Array []; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_current_window =
  { name = "vim_get_current_window"; params = Array []; witness = Window }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_set_current_window ~window =
  let window = Window.to_msgpack window in
  { name = "vim_set_current_window"; params = Array [ window ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_tabpages =
  { name = "vim_get_tabpages"; params = Array []; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_current_tabpage =
  { name = "vim_get_current_tabpage"; params = Array []; witness = Tabpage }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_set_current_tabpage ~tabpage =
  let tabpage = Tabpage.to_msgpack tabpage in
  { name = "vim_set_current_tabpage"; params = Array [ tabpage ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_subscribe ~event =
  let event = Msgpack.String event in
  { name = "vim_subscribe"; params = Array [ event ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_unsubscribe ~event =
  let event = Msgpack.String event in
  { name = "vim_unsubscribe"; params = Array [ event ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_name_to_color ~name =
  let name = Msgpack.String name in
  { name = "vim_name_to_color"; params = Array [ name ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_color_map =
  { name = "vim_get_color_map"; params = Array []; witness = Dict }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let vim_get_api_info =
  { name = "vim_get_api_info"; params = Array []; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_buffer ~window =
  let window = Window.to_msgpack window in
  { name = "window_get_buffer"; params = Array [ window ]; witness = Buffer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_cursor ~window =
  let window = Window.to_msgpack window in
  { name = "window_get_cursor"; params = Array [ window ]; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_set_cursor ~window ~pos =
  let window = Window.to_msgpack window in
  let pos = Msgpack.Array (List.map ~f:(fun v -> v) pos) in
  { name = "window_set_cursor"; params = Array [ window; pos ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_height ~window =
  let window = Window.to_msgpack window in
  { name = "window_get_height"; params = Array [ window ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_set_height ~window ~height =
  let window = Window.to_msgpack window in
  let height = Msgpack.Integer height in
  { name = "window_set_height"; params = Array [ window; height ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_width ~window =
  let window = Window.to_msgpack window in
  { name = "window_get_width"; params = Array [ window ]; witness = Integer }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_set_width ~window ~width =
  let window = Window.to_msgpack window in
  let width = Msgpack.Integer width in
  { name = "window_set_width"; params = Array [ window; width ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_var ~window ~name =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  { name = "window_get_var"; params = Array [ window; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_option ~window ~name =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  { name = "window_get_option"; params = Array [ window; name ]; witness = Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_set_option ~window ~name ~value =
  let window = Window.to_msgpack window in
  let name = Msgpack.String name in
  let value = value in
  { name = "window_set_option"; params = Array [ window; name; value ]; witness = Nil }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_position ~window =
  let window = Window.to_msgpack window in
  { name = "window_get_position"; params = Array [ window ]; witness = Array Object }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_get_tabpage ~window =
  let window = Window.to_msgpack window in
  { name = "window_get_tabpage"; params = Array [ window ]; witness = Tabpage }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;

let window_is_valid ~window =
  let window = Window.to_msgpack window in
  { name = "window_is_valid"; params = Array [ window ]; witness = Boolean }
[@@deprecated "[since 1111-11] neovim_version: 1 "]
;;