summaryrefslogtreecommitdiff
path: root/lib/chessh/ssh/client
diff options
context:
space:
mode:
Diffstat (limited to 'lib/chessh/ssh/client')
-rw-r--r--lib/chessh/ssh/client/board.ex276
-rw-r--r--lib/chessh/ssh/client/board/server.ex19
-rw-r--r--lib/chessh/ssh/client/client.ex116
-rw-r--r--lib/chessh/ssh/client/menu.ex100
-rw-r--r--lib/chessh/ssh/client/screen.ex31
5 files changed, 542 insertions, 0 deletions
diff --git a/lib/chessh/ssh/client/board.ex b/lib/chessh/ssh/client/board.ex
new file mode 100644
index 0000000..b192cfe
--- /dev/null
+++ b/lib/chessh/ssh/client/board.ex
@@ -0,0 +1,276 @@
+# defmodule Chessh.SSH.Client.Board do
+# alias Chessh.SSH.Client
+# alias IO.ANSI
+#
+# require Logger
+#
+# defmodule State do
+# defstruct cursor: %{x: 0, y: 0},
+# highlighted: %{},
+# move_from: nil
+# end
+#
+# use GenServer
+# use Chessh.SSH.Client.Screen
+#
+# @chess_board_height 8
+# @chess_board_width 8
+# @tile_width 7
+# @tile_height 4
+#
+# @dark_piece_color ANSI.magenta()
+# @light_piece_color ANSI.red()
+#
+# def tileIsLight(row, col) do
+# rem(row, 2) == rem(col, 2)
+# end
+#
+# def piece_type(char) do
+# case String.capitalize(char) do
+# "P" -> "pawn"
+# "N" -> "knight"
+# "R" -> "rook"
+# "B" -> "bishop"
+# "K" -> "king"
+# "Q" -> "queen"
+# _ -> nil
+# end
+# end
+#
+# def make_board({tile_width, tile_height}) do
+# rows =
+# Enum.map(0..(@chess_board_height - 1), fn row ->
+# Enum.map(0..(@chess_board_width - 1), fn col ->
+# if(tileIsLight(row, col), do: ' ', else: '▊')
+# |> List.duplicate(tile_width)
+# end)
+# |> Enum.join("")
+# end)
+#
+# Enum.flat_map(rows, fn row -> Enum.map(1..tile_height, fn _ -> row end) end)
+# end
+#
+# defp skip_cols_or_place_piece_reduce(char, {curr_column, data}, rowI) do
+# case Integer.parse(char) do
+# {skip, ""} ->
+# {curr_column + skip, data}
+#
+# _ ->
+# case piece_type(char) do
+# nil ->
+# {curr_column, data}
+#
+# type ->
+# shade = if(char != String.capitalize(char), do: "light", else: "dark")
+#
+# {curr_column + 1,
+# Map.put(
+# data,
+# "#{rowI}, #{curr_column}",
+# {shade, type}
+# )}
+# end
+# end
+# end
+#
+# defp make_coordinate_to_piece_art_map(fen) do
+# rows =
+# String.split(fen, " ")
+# |> List.first()
+# |> String.split("/")
+#
+# Enum.zip(rows, 0..(length(rows) - 1))
+# |> Enum.map(fn {row, rowI} ->
+# {@chess_board_height, pieces_per_row} =
+# Enum.reduce(
+# String.split(row, ""),
+# {0, %{}},
+# &skip_cols_or_place_piece_reduce(&1, &2, rowI)
+# )
+#
+# pieces_per_row
+# end)
+# |> Enum.reduce(%{}, fn pieces_map_for_this_row, acc ->
+# Map.merge(acc, pieces_map_for_this_row)
+# end)
+# end
+#
+# def draw_board(
+# fen,
+# {tile_width, tile_height} = tile_dims,
+# highlights
+# ) do
+# coordinate_to_piece = make_coordinate_to_piece_art_map(fen)
+# board = make_board(tile_dims)
+#
+# Enum.zip_with([board, 0..(length(board) - 1)], fn [rowStr, row] ->
+# curr_y = div(row, tile_height)
+#
+# %{row_chars: row_chars} =
+# Enum.reduce(
+# Enum.zip(String.graphemes(rowStr), 0..(String.length(rowStr) - 1)),
+# %{current_color: ANSI.black(), row_chars: []},
+# fn {char, col}, %{current_color: current_color, row_chars: row_chars} = row_state ->
+# curr_x = div(col, tile_width)
+# key = "#{curr_y}, #{curr_x}"
+# relative_to_tile_col = col - curr_x * tile_width
+#
+# prefix =
+# if relative_to_tile_col == 0 do
+# case Map.fetch(highlights, {curr_y, curr_x}) do
+# {:ok, color} ->
+# color
+#
+# _ ->
+# ANSI.default_background()
+# end
+# end
+#
+# case Map.fetch(coordinate_to_piece, key) do
+# {:ok, {shade, type}} ->
+# piece = @ascii_chars["pieces"][shade][type]
+# piece_line = Enum.at(piece, row - curr_y * tile_height)
+#
+# piece_line_len = String.length(piece_line)
+# pad_left_right = div(tile_width - piece_line_len, 2)
+#
+# if relative_to_tile_col >= pad_left_right &&
+# relative_to_tile_col < tile_width - pad_left_right do
+# piece_char = String.at(piece_line, relative_to_tile_col - pad_left_right)
+# new_char = if piece_char == " ", do: char, else: piece_char
+#
+# color =
+# if piece_char == " ",
+# do: ANSI.default_color(),
+# else: if(shade == "dark", do: @dark_piece_color, else: @light_piece_color)
+#
+# if color != current_color do
+# %{
+# row_state
+# | current_color: color,
+# row_chars: row_chars ++ [prefix, color, new_char]
+# }
+# else
+# %{
+# row_state
+# | current_color: current_color,
+# row_chars: row_chars ++ [prefix, new_char]
+# }
+# end
+# else
+# %{
+# row_state
+# | current_color: ANSI.default_color(),
+# row_chars: row_chars ++ [prefix, ANSI.default_color(), char]
+# }
+# end
+#
+# _ ->
+# if ANSI.white() != current_color do
+# %{
+# row_state
+# | current_color: ANSI.default_color(),
+# row_chars: row_chars ++ [prefix, ANSI.default_color(), char]
+# }
+# else
+# %{
+# row_state
+# | row_chars: row_chars ++ [prefix, char]
+# }
+# end
+# end
+# end
+# )
+#
+# row_chars
+# |> Enum.join("")
+# end)
+# end
+#
+# def render(%Client.State{
+# state_stack: [{_this_module, %State{highlighted: highlighted}} | _]
+# }) do
+# board =
+# draw_board(
+# "rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1",
+# {@tile_width, @tile_height},
+# highlighted
+# )
+#
+# [ANSI.home()] ++
+# Enum.map(
+# Enum.zip(1..length(board), board),
+# fn {i, line} ->
+# [ANSI.cursor(i, 0), line]
+# end
+# )
+# end
+#
+# def handle_input(
+# action,
+# %Client.State{
+# binbo_pid: binbo_pid,
+# state_stack: [
+# {this_module,
+# %State{
+# move_from: move_from,
+# cursor: %{x: cursor_x, y: cursor_y} = cursor
+# } = screen_state}
+# | rest_stack
+# ]
+# } = 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
+# # Logger.debug(inspect(attempt_move(%Chess.Game{}, move_from, move_to)))
+# attempted_move = "#{to_chess_coord(move_from)}#{to_chess_coord(move_to)}"
+#
+# case :binbo.move(binbo_pid, attempted_move) do
+# # state.game_id}, {:new_move, :attempted_move})
+# {:ok, _} -> :syn.publish(:games, {:game, "asdf"}, {:new_move, attempted_move})
+# end
+# end
+#
+# %Client.State{
+# state
+# | state_stack: [
+# {this_module,
+# %State{
+# screen_state
+# | cursor: new_cursor,
+# move_from: new_move_from,
+# highlighted: %{
+# new_move_from => ANSI.green_background(),
+# {new_cursor.y, new_cursor.x} => ANSI.green_background()
+# }
+# }}
+# | rest_stack
+# ]
+# }
+# 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
+# end
diff --git a/lib/chessh/ssh/client/board/server.ex b/lib/chessh/ssh/client/board/server.ex
new file mode 100644
index 0000000..2e480e7
--- /dev/null
+++ b/lib/chessh/ssh/client/board/server.ex
@@ -0,0 +1,19 @@
+# defmodule Chessh.SSH.Client.Board.Server do
+# use GenServer
+#
+# defmodule State do
+# defstruct game_id: nil,
+# binbo_pid: nil
+# end
+#
+# def init([%State{game_id: game_id} = state]) do
+# {:ok, binbo_pid} = GenServer.start_link(:binbo, [])
+#
+# :syn.join(:games, {:game, game_id})
+# {:ok, state}
+# end
+#
+# def handle_cast({:new_move, attempted_move}, %State{game_id: game_id} = state) do
+# {:no_reply, state}
+# end
+# end
diff --git a/lib/chessh/ssh/client/client.ex b/lib/chessh/ssh/client/client.ex
new file mode 100644
index 0000000..a5f7bec
--- /dev/null
+++ b/lib/chessh/ssh/client/client.ex
@@ -0,0 +1,116 @@
+defmodule Chessh.SSH.Client do
+ alias IO.ANSI
+ alias Chessh.SSH.Client.Menu
+ require Logger
+
+ use GenServer
+
+ @clear_codes [
+ ANSI.clear(),
+ ANSI.reset(),
+ ANSI.home()
+ ]
+
+ @max_terminal_width 255
+ @max_terminal_height 127
+
+ @terminal_bad_dim_msg [
+ @clear_codes | "The dimensions of your terminal are not within in the valid range"
+ ]
+
+ defmodule State do
+ defstruct tui_pid: nil,
+ width: 0,
+ height: 0,
+ player_session: nil,
+ screen_processes: []
+ end
+
+ @impl true
+ def init([%State{tui_pid: tui_pid} = state]) do
+ {:ok, screen_pid} =
+ GenServer.start_link(Chessh.SSH.Client.Menu, [
+ %Chessh.SSH.Client.Menu.State{tui_pid: tui_pid}
+ ])
+
+ {:ok, %{state | screen_processes: [screen_pid]}}
+ end
+
+ @impl true
+ def handle_info(:quit, %State{} = state) do
+ {:stop, :normal, state}
+ end
+
+ @impl true
+ def handle_info(msg, state) do
+ [burst_ms, burst_rate] =
+ Application.get_env(:chessh, RateLimits)
+ |> Keyword.take([:player_session_message_burst_ms, :player_session_message_burst_rate])
+ |> Keyword.values()
+
+ case Hammer.check_rate_inc(
+ "player-session-#{state.player_session.id}-burst-message-rate",
+ burst_ms,
+ burst_rate,
+ 1
+ ) do
+ {:allow, _count} ->
+ handle(msg, state)
+
+ {:deny, _limit} ->
+ {:noreply, state}
+ end
+ end
+
+ def handle(
+ {:data, data},
+ %State{width: width, height: height, screen_processes: [screen_pid | _]} = state
+ ) do
+ action = keymap(data)
+
+ if action == :quit do
+ {:stop, :normal, state}
+ else
+ send(screen_pid, {:input, width, height, action})
+ {:noreply, state}
+ end
+ end
+
+ # def handle(
+ # {:refresh, },
+ # %State{screen_processes: [screen_pid | _] = screen_processes, width: width, height: height} = state
+ # ) do
+ # send(screen_pid, {:render, tui_pid, width, height})
+ # {:noreply, state}
+ # end
+
+ def handle(
+ {:resize, {width, height}},
+ %State{tui_pid: tui_pid, screen_processes: [screen_pid | _]} = state
+ ) do
+ new_state = %State{state | width: width, height: height}
+
+ if height <= @max_terminal_height && width <= @max_terminal_width do
+ send(screen_pid, {:render, width, height})
+ else
+ send(tui_pid, {:send_data, @terminal_bad_dim_msg})
+ end
+
+ {:noreply, new_state}
+ end
+
+ def keymap(key) do
+ case key do
+ # Exit keys - C-c and C-d
+ <<3>> -> :quit
+ <<4>> -> :quit
+ # Arrow keys
+ "\e[A" -> :up
+ "\e[B" -> :down
+ "\e[D" -> :left
+ "\e[C" -> :right
+ "\r" -> :return
+ x -> x
+ end
+ end
+end
diff --git a/lib/chessh/ssh/client/menu.ex b/lib/chessh/ssh/client/menu.ex
new file mode 100644
index 0000000..a69ad88
--- /dev/null
+++ b/lib/chessh/ssh/client/menu.ex
@@ -0,0 +1,100 @@
+defmodule Chessh.SSH.Client.Menu do
+ alias Chessh.Utils
+ alias IO.ANSI
+
+ require Logger
+
+ defmodule State do
+ defstruct dy: 0,
+ dx: 0,
+ tui_pid: nil,
+ selected: 0
+ end
+
+ use Chessh.SSH.Client.Screen
+
+ def init([%State{} = state | _]) do
+ {:ok, state}
+ end
+
+ @logo " Simponic's
+ dP MP\"\"\"\"\"\"`MM MP\"\"\"\"\"\"`MM M\"\"MMMMM\"\"MM
+ 88 M mmmmm..M M mmmmm..M M MMMMM MM
+.d8888b. 88d888b. .d8888b. M. `YM M. `YM M `M
+88' `\"\" 88' `88 88ooood8 MMMMMMM. M MMMMMMM. M M MMMMM MM
+88. ... 88 88 88. ... M. .MMM' M M. .MMM' M M MMMMM MM
+`88888P' dP dP `88888P' Mb. .dM Mb. .dM M MMMMM MM
+ MMMMMMMMMMM MMMMMMMMMMM MMMMMMMMMMMM"
+
+ # @options [
+ # {"Option 1", {Chessh.SSH.Client.Board, [%Chessh.SSH.Client.Board.State{}]}},
+ # {"Option 2", {Chessh.SSH.Client.Board, [%Chessh.SSH.Client.Board.State{}]}}
+ # ]
+ @options [
+ {"Option 1", {}},
+ {"Option 2", {}},
+ {"Option 3", {}}
+ ]
+
+ def handle_info({:render, width, height}, %State{} = state) do
+ render(width, height, state)
+ {:noreply, state}
+ end
+
+ def handle_info({:input, width, height, action}, %State{selected: selected} = state) do
+ new_state =
+ case(action) do
+ :up ->
+ %State{
+ state
+ | selected: wrap_around(selected, -1, length(@options))
+ }
+
+ :down ->
+ %State{state | selected: wrap_around(selected, 1, length(@options))}
+
+ # :return ->
+ # {_, new_state} = Enum.at(@options, selected)
+ # new_state
+
+ _ ->
+ state
+ end
+
+ render(width, height, new_state)
+ {:noreply, new_state}
+ end
+
+ def render(width, height, %State{tui_pid: tui_pid, dy: dy, dx: dx, selected: selected}) do
+ text = String.split(@logo, "\n")
+ {logo_width, logo_height} = Utils.text_dim(@logo)
+ {y, x} = center_rect({logo_width, logo_height + length(text)}, {width, height})
+
+ rendered =
+ Enum.flat_map(
+ Enum.zip(1..length(text), text),
+ fn {i, line} ->
+ [
+ ANSI.cursor(y + i + dy, x + dx),
+ line
+ ]
+ end
+ ) ++
+ Enum.flat_map(
+ Enum.zip(0..(length(@options) - 1), @options),
+ fn {i, {option, _}} ->
+ [
+ ANSI.cursor(y + length(text) + i + dy, x + dx),
+ if(i == selected, do: ANSI.format([:light_cyan, "* #{option}"]), else: option)
+ ]
+ end
+ ) ++ [ANSI.home()]
+
+ send(tui_pid, {:send_data, rendered})
+ end
+
+ defp wrap_around(index, delta, length) do
+ calc = index + delta
+ if(calc < 0, do: length, else: 0) + rem(calc, length)
+ end
+end
diff --git a/lib/chessh/ssh/client/screen.ex b/lib/chessh/ssh/client/screen.ex
new file mode 100644
index 0000000..2dd9f9c
--- /dev/null
+++ b/lib/chessh/ssh/client/screen.ex
@@ -0,0 +1,31 @@
+defmodule Chessh.SSH.Client.Screen do
+ @callback handle_info(
+ {:render, width :: integer(), height :: integer()},
+ state :: any()
+ ) ::
+ {:noreply, any()}
+ @callback handle_info({:input, width :: integer(), height :: integer(), action :: any()}) ::
+ {:noreply, any()}
+
+ # @callback render(state :: Chessh.SSH.Client.State.t() | any()) :: any()
+ # @callback handle_input(action :: any(), state :: Chessh.SSH.Client.State.t()) ::
+ # Chessh.SSH.Client.State.t()
+
+ defmacro __using__(_) do
+ quote do
+ @behaviour Chessh.SSH.Client.Screen
+ use GenServer
+
+ @ascii_chars Application.compile_env!(:chessh, :ascii_chars_json_file)
+ |> File.read!()
+ |> Jason.decode!()
+
+ def center_rect({rect_width, rect_height}, {parent_width, parent_height}) do
+ {
+ div(parent_height - rect_height, 2),
+ div(parent_width - rect_width, 2)
+ }
+ end
+ end
+ end
+end
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2025-09-21 16:13:09 +0000