etch

-module(terminal_ffi).

-export([enter_raw/0, exit_raw/0, window_size/0]).

enter_raw() ->
    shell:start_interactive({noshell, raw}).

exit_raw() ->
    shell:start_interactive(noshell).

window_size() ->
    case io:columns() of
        {ok, Cols} ->
            case io:rows() of
                {ok, Rows} ->
                    {ok, {Cols, Rows}};
                _ ->
                    {error, could_not_get_window_size}
            end;
        _ ->
            {error, could_not_get_window_size}
    end.