| 1 |
1
|
|
defmodule OpenAgentsWeb.HomeLive do
|
| 2 |
2
|
|
@moduledoc """
|
| 3 |
|
- |
The public landing page, composed from `OpenAgentsWeb.UI.Landing`.
|
|
3
|
+ |
Two pages behind one route.
|
| 4 |
4
|
|
|
| 5 |
|
- |
Every band here is a catalogued component rather than page-local markup, so
|
| 6 |
|
- |
the homepage and the component library cannot drift: changing a landing
|
| 7 |
|
- |
component changes this page, and the library demonstrates the same thing a
|
| 8 |
|
- |
visitor sees.
|
|
5
|
+ |
Signed out, this is the landing page, composed from
|
|
6
|
+ |
`OpenAgentsWeb.UI.Landing` so the homepage and the component library cannot
|
|
7
|
+ |
drift apart.
|
| 9 |
8
|
|
|
| 10 |
|
- |
The surface is flush -- it owns the full main area and scrolls itself --
|
|
9
|
+ |
Signed in, a marketing pitch is the wrong thing to show: the visitor has
|
|
10
|
+ |
already been sold, and what they want is the state of the work. The same
|
|
11
|
+ |
route renders a dashboard -- repositories, open issues, projects, and what
|
|
12
|
+ |
shipped recently -- the way a code host's home does.
|
|
13
|
+ |
|
|
14
|
+ |
Everything on the dashboard is real and clickable. Where a panel has nothing
|
|
15
|
+ |
to show it says so plainly rather than rendering a placeholder, because a
|
|
16
|
+ |
dashboard whose emptiness is disguised is worse than one that admits it.
|
|
17
|
+ |
|
|
18
|
+ |
The landing page is flush -- it owns the full main area and scrolls itself --
|
| 11 |
19
|
|
because landing bands set their own vertical rhythm against the viewport and
|
| 12 |
|
- |
a wrapper's padding would fight it.
|
|
20
|
+ |
a wrapper's padding would fight it. The dashboard is an ordinary page.
|
| 13 |
21
|
|
"""
|
| 14 |
22
|
|
use OpenAgentsWeb, :live_view
|
| 15 |
23
|
|
|
|
24
|
+ |
alias OpenAgents.Changelog
|
|
25
|
+ |
alias OpenAgents.Issues
|
|
26
|
+ |
alias OpenAgents.Projects
|
|
27
|
+ |
alias OpenAgents.Repositories
|
| 16 |
28
|
|
alias OpenAgentsWeb.UI.Landing
|
| 17 |
29
|
|
|
|
30
|
+ |
@repo "openagents.com"
|
|
31
|
+ |
@feed_limit 8
|
|
32
|
+ |
@changelog_limit 5
|
|
33
|
+ |
|
|
34
|
+ |
@impl true
|
| 18 |
35
|
|
def mount(_params, _session, socket) do
|
| 19 |
|
- |
{:ok, socket}
|
|
36
|
+ |
{:ok, if(socket.assigns[:current_user], do: assign_dashboard(socket), else: socket)}
|
|
37
|
+ |
end
|
|
38
|
+ |
|
|
39
|
+ |
# Loaded once at mount rather than per render: none of it changes within a
|
|
40
|
+ |
# visit, and the dashboard should not re-query on every diff.
|
|
41
|
+ |
defp assign_dashboard(socket) do
|
|
42
|
+ |
repository = Repositories.initial_repository!()
|
|
43
|
+ |
{owner, name} = Repositories.initial_path()
|
|
44
|
+ |
|
|
45
|
+ |
open_issues = Issues.list_issues(repository, state: "open")
|
|
46
|
+ |
closed_issues = Issues.list_issues(repository, state: "closed")
|
|
47
|
+ |
projects = Projects.list_projects(repository)
|
|
48
|
+ |
|
|
49
|
+ |
socket
|
|
50
|
+ |
|> assign(:owner, owner)
|
|
51
|
+ |
|> assign(:name, name)
|
|
52
|
+ |
|> assign(:open_count, length(open_issues))
|
|
53
|
+ |
|> assign(:closed_count, length(closed_issues))
|
|
54
|
+ |
|> assign(:project_count, length(projects))
|
|
55
|
+ |
|> assign(:issues, Enum.take(open_issues, @feed_limit))
|
|
56
|
+ |
|> assign(:projects, Enum.take(projects, 6))
|
|
57
|
+ |
|> assign(:changelog, changelog_entries())
|
|
58
|
+ |
end
|
|
59
|
+ |
|
|
60
|
+ |
# The ledger is a bounded public projection and can legitimately refuse. An
|
|
61
|
+ |
# empty rail is the honest answer; the home page should not crash over it.
|
|
62
|
+ |
defp changelog_entries do
|
|
63
|
+ |
case Changelog.timeline(@repo) do
|
|
64
|
+ |
{:ok, rows} -> Enum.take(rows, @changelog_limit)
|
|
65
|
+ |
{:error, _reason} -> []
|
|
66
|
+ |
end
|
|
67
|
+ |
end
|
|
68
|
+ |
|
|
69
|
+ |
@impl true
|
|
70
|
+ |
def render(%{current_user: user} = assigns) when not is_nil(user) do
|
|
71
|
+ |
~H"""
|
|
72
|
+ |
<Layouts.app flash={@flash} current_scope={@current_scope} title="Home" wide>
|
|
73
|
+ |
<div class="dashboard">
|
|
74
|
+ |
<div class="dashboard__main">
|
|
75
|
+ |
<section class="panel" aria-labelledby="dashboard-issues">
|
|
76
|
+ |
<header class="panel__header">
|
|
77
|
+ |
<h2 id="dashboard-issues" class="panel__title">Open issues</h2>
|
|
78
|
+ |
<.link navigate={~p"/#{@owner}/#{@name}/issues"} class="panel__more">
|
|
79
|
+ |
View all <.icon name="arrow-right" />
|
|
80
|
+ |
</.link>
|
|
81
|
+ |
</header>
|
|
82
|
+ |
|
|
83
|
+ |
<ul :if={@issues != []} class="issue-feed">
|
|
84
|
+ |
<li :for={issue <- @issues} class="issue-feed__row">
|
|
85
|
+ |
<.icon name="circle-dashed" class="issue-feed__state" />
|
|
86
|
+ |
<div class="issue-feed__body">
|
|
87
|
+ |
<.link
|
|
88
|
+ |
navigate={~p"/#{@owner}/#{@name}/issues/#{issue.number}"}
|
|
89
|
+ |
class="issue-feed__title"
|
|
90
|
+ |
>
|
|
91
|
+ |
{issue.title}
|
|
92
|
+ |
</.link>
|
|
93
|
+ |
<p class="issue-feed__meta">
|
|
94
|
+ |
#{issue.number} opened {relative_time(issue.inserted_at)}
|
|
95
|
+ |
</p>
|
|
96
|
+ |
</div>
|
|
97
|
+ |
<span :if={issue.comments > 0} class="issue-feed__comments">
|
|
98
|
+ |
<.icon name="chat" /> {issue.comments}
|
|
99
|
+ |
</span>
|
|
100
|
+ |
</li>
|
|
101
|
+ |
</ul>
|
|
102
|
+ |
|
|
103
|
+ |
<p :if={@issues == []} class="panel__empty">
|
|
104
|
+ |
No open issues. <.link navigate={~p"/#{@owner}/#{@name}/issues/new"}>Open one</.link>.
|
|
105
|
+ |
</p>
|
|
106
|
+ |
</section>
|
|
107
|
+ |
|
|
108
|
+ |
<section class="panel" aria-labelledby="dashboard-projects">
|
|
109
|
+ |
<header class="panel__header">
|
|
110
|
+ |
<h2 id="dashboard-projects" class="panel__title">Projects</h2>
|
|
111
|
+ |
<.link navigate={~p"/#{@owner}/#{@name}/projects"} class="panel__more">
|
|
112
|
+ |
View all <.icon name="arrow-right" />
|
|
113
|
+ |
</.link>
|
|
114
|
+ |
</header>
|
|
115
|
+ |
|
|
116
|
+ |
<ul :if={@projects != []} class="project-list">
|
|
117
|
+ |
<li :for={project <- @projects}>
|
|
118
|
+ |
<.link
|
|
119
|
+ |
navigate={~p"/#{@owner}/#{@name}/projects/#{project.number}"}
|
|
120
|
+ |
class="project-list__row"
|
|
121
|
+ |
>
|
|
122
|
+ |
<.icon name="grid" />
|
|
123
|
+ |
<span class="project-list__title">{project.title}</span>
|
|
124
|
+ |
<span class="project-list__state" data-state={project.state}>
|
|
125
|
+ |
{project.state}
|
|
126
|
+ |
</span>
|
|
127
|
+ |
</.link>
|
|
128
|
+ |
</li>
|
|
129
|
+ |
</ul>
|
|
130
|
+ |
|
|
131
|
+ |
<p :if={@projects == []} class="panel__empty">No projects yet.</p>
|
|
132
|
+ |
</section>
|
|
133
|
+ |
</div>
|
|
134
|
+ |
|
|
135
|
+ |
<aside class="dashboard__rail">
|
|
136
|
+ |
<section class="panel" aria-labelledby="dashboard-repo">
|
|
137
|
+ |
<header class="panel__header">
|
|
138
|
+ |
<h2 id="dashboard-repo" class="panel__title">Repository</h2>
|
|
139
|
+ |
</header>
|
|
140
|
+ |
|
|
141
|
+ |
<%!-- The code browser's owner segment is a literal in the router
|
|
142
|
+ |
(a wildcard first segment would shadow every two-segment path), so
|
|
143
|
+ |
the route is written the way the router declares it. --%>
|
|
144
|
+ |
<.link navigate={~p"/OpenAgentsInc/#{@name}"} class="repo-card">
|
|
145
|
+ |
<.icon name="folder" />
|
|
146
|
+ |
<span class="repo-card__name">{@owner}/{@name}</span>
|
|
147
|
+ |
</.link>
|
|
148
|
+ |
|
|
149
|
+ |
<dl class="stat-pairs">
|
|
150
|
+ |
<div>
|
|
151
|
+ |
<dt>Open</dt>
|
|
152
|
+ |
<dd>{@open_count}</dd>
|
|
153
|
+ |
</div>
|
|
154
|
+ |
<div>
|
|
155
|
+ |
<dt>Closed</dt>
|
|
156
|
+ |
<dd>{@closed_count}</dd>
|
|
157
|
+ |
</div>
|
|
158
|
+ |
<div>
|
|
159
|
+ |
<dt>Projects</dt>
|
|
160
|
+ |
<dd>{@project_count}</dd>
|
|
161
|
+ |
</div>
|
|
162
|
+ |
</dl>
|
|
163
|
+ |
</section>
|
|
164
|
+ |
|
|
165
|
+ |
<section class="panel" aria-labelledby="dashboard-changelog">
|
|
166
|
+ |
<header class="panel__header">
|
|
167
|
+ |
<h2 id="dashboard-changelog" class="panel__title">Latest from the changelog</h2>
|
|
168
|
+ |
</header>
|
|
169
|
+ |
|
|
170
|
+ |
<ol :if={@changelog != []} class="changelog-rail">
|
|
171
|
+ |
<li :for={entry <- @changelog}>
|
|
172
|
+ |
<p class="changelog-rail__when">{relative_time(entry.entry_at)}</p>
|
|
173
|
+ |
<p class="changelog-rail__summary">{entry.summary}</p>
|
|
174
|
+ |
</li>
|
|
175
|
+ |
</ol>
|
|
176
|
+ |
|
|
177
|
+ |
<p :if={@changelog == []} class="panel__empty">Nothing recorded yet.</p>
|
|
178
|
+ |
|
|
179
|
+ |
<.link navigate={~p"/changelog"} class="panel__more">
|
|
180
|
+ |
View changelog <.icon name="arrow-right" />
|
|
181
|
+ |
</.link>
|
|
182
|
+ |
</section>
|
|
183
|
+ |
</aside>
|
|
184
|
+ |
</div>
|
|
185
|
+ |
</Layouts.app>
|
|
186
|
+ |
"""
|
| 20 |
187
|
|
end
|
| 21 |
188
|
|
|
| 22 |
189
|
|
def render(assigns) do
|