Source file tabpage.ml

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