1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
defmodule Chessh.SSH.Client.Menu do
alias Chessh.SSH.Client
alias Chessh.Utils
alias IO.ANSI
require Logger
defmodule State do
defstruct y: 0,
x: 0,
selected: 0
end
use Chessh.SSH.Client.Screen
@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, %{}}},
{"Option 2", {Chessh.SSH.Client.Board, %{}}},
{"Option 3", {Chessh.SSH.Client.Board, %{}}}
]
def render(%Client.State{
width: width,
height: height,
state_stack: [{_this_module, %State{selected: selected, y: dy, x: dx}} | _tail]
}) 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})
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()]
end
def wrap_around(index, delta, length) do
calc = index + delta
if(calc < 0, do: length, else: 0) + rem(calc, length)
end
def handle_input(
data,
%Client.State{
state_stack:
[{this_module, %State{selected: selected} = screen_state} | tail] = state_stack
} = state
) do
case(data) do
:up ->
%Client.State{
state
| state_stack: [
{this_module,
%State{screen_state | selected: wrap_around(selected, -1, length(@options))}}
| tail
]
}
:down ->
%Client.State{
state
| state_stack: [
{this_module,
%State{screen_state | selected: wrap_around(selected, 1, length(@options))}}
| tail
]
}
:return ->
{_, new_state} = Enum.at(@options, selected)
%Client.State{
state
| state_stack: [new_state] ++ state_stack
}
_ ->
state
end
end
end
|
