1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
open Core
type t = Types.Tabpage.t
let of_msgpack = Types.Tabpage.of_msgpack
let to_msgpack = Types.Tabpage.to_msgpack
module Untested = struct
let list_wins ~tabpage =
let open Api_call.Let_syntax in
let%map result =
Nvim_internal.Wrappers.nvim_tabpage_list_wins ~tabpage |> Api_call.of_api_result
in
Or_error.bind
~f:(fun r -> List.map r ~f:Window.of_msgpack |> Or_error.combine_errors)
result
;;
let get_var ~tabpage ~name =
Nvim_internal.Wrappers.nvim_tabpage_get_var ~tabpage ~name |> Api_call.of_api_result
;;
let set_var ~tabpage ~name ~value =
Nvim_internal.Wrappers.nvim_tabpage_set_var ~tabpage ~name ~value
|> Api_call.of_api_result
;;
let del_var ~tabpage ~name =
Nvim_internal.Wrappers.nvim_tabpage_del_var ~tabpage ~name |> Api_call.of_api_result
;;
let get_win ~tabpage =
Nvim_internal.Wrappers.nvim_tabpage_get_win ~tabpage |> Api_call.of_api_result
;;
let get_number ~tabpage =
Nvim_internal.Wrappers.nvim_tabpage_get_number ~tabpage |> Api_call.of_api_result
;;
let is_valid ~tabpage =
Nvim_internal.Wrappers.nvim_tabpage_is_valid ~tabpage |> Api_call.of_api_result
;;
end