Current section

Files

Jump to
islands_client_input lib islands client input prompter.ex
Raw

lib/islands/client/input/prompter.ex

defmodule Islands.Client.Input.Prompter do
alias IO.ANSI.Plus, as: ANSI
alias Islands.Client.Input.{Getter, Parser}
alias Islands.Client.{State, Summary}
# Hopefully enough time to flush any unprompted input...
@timeout_in_ms 2
@spec accept_move(State.t(), ANSI.ansilist()) :: State.t() | no_return
def accept_move(state, message \\ [])
def accept_move(state, []), do: do_accept_move(state)
def accept_move(state, message),
do: state |> Summary.display(message) |> do_accept_move()
# Private functions
@spec do_accept_move(State.t()) :: State.t() | no_return
defp do_accept_move(%State{player_name: player_name} = state) do
flush_stdio()
[:light_white, "#{player_name}, your move (or help):", :reset, " "]
|> Getter.get_input(state)
|> Parser.parse_input(state)
end
@spec flush_stdio :: true
defp flush_stdio do
pid = spawn(fn -> IO.read(:all) end)
:ok = Process.sleep(@timeout_in_ms)
true = Process.exit(pid, :kill)
end
end