Checkpoint

This commit is contained in:
Simponic 2023-01-11 19:14:47 -07:00
parent 628c6d95a3
commit aa2ff6e137
Signed by untrusted user who does not match committer: simponic
GPG Key ID: 52B3774857EB24B1
3 changed files with 115 additions and 6 deletions

View File

@ -0,0 +1,113 @@
defmodule Chessh.SSH.Client.Board do
alias IO.ANSI
require Logger
@chess_board_height 8
@chess_board_width 8
@tile_width 7
@tile_height 4
@dark_piece_color ANSI.magenta()
@light_piece_color ANSI.red()
@from_select_background ANSI.green_background()
@to_select_background ANSI.blue_background()
defmodule State do
defstruct cursor: %{x: 0, y: 0},
highlighted: %{},
move_from: nil,
game_id: nil,
client_pid: nil
end
use Chessh.SSH.Client.Screen
def init([%State{game_id: game_id} = state | _]) do
:syn.add_node_to_scopes([:games])
:ok = :syn.join(:games, {:game, game_id}, self())
{:ok, state}
end
def handle_info({:attempted_move, move}, %State{client_pid: client_pid} = state) do
send(client_pid, {:send_to_ssh, ["hello, world!"]})
{:noreply, state}
end
def input(
width,
height,
action,
%State{
move_from: move_from,
game_id: game_id,
cursor: %{x: cursor_x, y: cursor_y} = cursor,
client_pid: client_pid
} = state
) do
new_cursor =
case action do
:left -> %{y: cursor_y, x: cursor_x - 1}
:right -> %{y: cursor_y, x: cursor_x + 1}
:down -> %{y: cursor_y + 1, x: cursor_x}
:up -> %{y: cursor_y - 1, x: cursor_x}
_ -> cursor
end
{new_move_from, move_to} =
if action == :return do
coords = {new_cursor.y, new_cursor.x}
case move_from do
nil -> {coords, nil}
_ -> {nil, coords}
end
else
{move_from, nil}
end
if move_from && move_to do
attempted_move = "#{to_chess_coord(move_from)}#{to_chess_coord(move_to)}"
:syn.publish(:games, {:game, game_id}, {:new_move, attempted_move})
end
new_state = %State{
state
| cursor: new_cursor,
move_from: new_move_from,
highlighted: %{
new_move_from => @from_select_background,
{new_cursor.y, new_cursor.x} => @to_select_background
}
}
send(client_pid, {:send_to_ssh, render_state(width, height, new_state)})
new_state
end
def render(width, height, %State{client_pid: client_pid} = state) do
send(client_pid, {:send_to_ssh, render_state(width, height, state)})
state
end
defp render_state(width, height, %State{} = _state) do
[ANSI.clear(), "#{width}#{height}"]
end
defp to_chess_coord({y, x})
when x >= 0 and x < @chess_board_width and y >= 0 and y < @chess_board_height do
"#{List.to_string([?a + x])}#{y + 1}"
end
defp piece_type(char) do
case String.capitalize(char) do
"P" -> "pawn"
"N" -> "knight"
"R" -> "rook"
"B" -> "bishop"
"K" -> "king"
"Q" -> "queen"
_ -> nil
end
end
end

View File

@ -25,8 +25,8 @@ defmodule Chessh.SSH.Client do
@impl true @impl true
def init([%State{} = state]) do def init([%State{} = state]) do
{:ok, screen_pid} = {:ok, screen_pid} =
GenServer.start_link(Chessh.SSH.Client.Menu, [ GenServer.start_link(Chessh.SSH.Client.Board, [
%Chessh.SSH.Client.Menu.State{client_pid: self()} %Chessh.SSH.Client.Board.State{client_pid: self()}
]) ])
{:ok, %{state | screen_processes: [screen_pid]}} {:ok, %{state | screen_processes: [screen_pid]}}

View File

@ -23,10 +23,6 @@ defmodule Chessh.SSH.Client.Menu do
{:ok, state} {:ok, state}
end end
# @options [
# {"Option 1", {Chessh.SSH.Client.Board, [%Chessh.SSH.Client.Board.State{}]}},
# {"Option 2", {Chessh.SSH.Client.Board, [%Chessh.SSH.Client.Board.State{}]}}
# ]
@options [ @options [
{"Option 1", {}}, {"Option 1", {}},
{"Option 2", {}}, {"Option 2", {}},