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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
defmodule WaevWeb.ExportsView do
use WaevWeb, :view
defp pp_date(datestr) do
# TODO use timex to pretty-print dates (translations??)
[d, m, y] = String.split(datestr, "/") |> Enum.map(&String.to_integer/1)
y = 2000 + y
m =
Enum.at(
[
"enero",
"febrero",
"marzo",
"abril",
"mayo",
"junio",
"julio",
"agosto",
"septiembre",
"octubre",
"noviembre",
"diciembre"
],
m - 1
)
"#{d} de #{m} de #{y}"
end
# Organize messages to make them easier to display
# [Waev.Export.Message] -> [{Date, [{Side, [Waev.Export.Message]}]}]
# Naming: ^-Days ^-Blocks^-Block
def process_messages(messages) do
messages
|> Enum.reduce([], fn message, days ->
[datestr, _timestr] = String.split(message.date, " ")
side = message.side
case days do
# Insert message on the last block (same date, same side)
[{^datestr, [{^side, block} | old_blocks]} | old_days] ->
[{datestr, [{side, [message | block]} | old_blocks]} | old_days]
# Insert message on new block (same date)
# Old block must be reversed to keep messages in the correct order
[{^datestr, [{old_side, old_block} | old_blocks]} | old_days] ->
[
{datestr, [{side, [message]}, {old_side, old_block} | old_blocks]}
| old_days
]
# Insert message on new date
# Old blocks must be reversed to keep days in the correct order
[{old_datestr, old_blocks} | old_days] ->
[{datestr, [{side, [message]}]}, {old_datestr, old_blocks} | old_days]
# Ez.
[] ->
[{datestr, [{side, [message]}]}]
end
end)
# Reverse messages, blocks and days, as they were appended in the list head
# Enum.reduce is used to avoid double iteration with map + reverse
|> Enum.reduce([], fn {date, blocks}, days ->
blocks =
Enum.reduce(blocks, [], fn {side, messages}, blocks ->
[{side, Enum.reverse(messages)} | blocks]
end)
# Reverse days
[{pp_date(date), blocks} | days]
end)
end
def party_peek(assigns, party) do
~E"""
<div class="party-peek">
<figure>
<%= party_avatar(assigns, party, :big) %>
<figcaption><%= party.name %></figcaption>
</figure>
</div>
"""
end
def party_avatar(assigns, party, size) do
modifier =
case size do
:tiny -> "avatar--tiny"
:big -> "avatar--big"
end
~E"""
<img class="avatar <%= modifier %>" src="<%= Routes.exports_path(@conn, :get_avatar, @id, party.name) %>" />
"""
end
def highlight_urls(nil), do: ""
def highlight_urls(text) do
url_re =
~r/https?:\/\/(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,6}\b([-a-zA-Z0-9@:%_\+.~#?&\/\/=]*)/
url_re
|> Regex.scan(text)
|> Enum.reduce(text, fn [url | _], t ->
t
|> String.replace(url, "<a target=\"_blank\" href=#{url}>#{url}</a>", global: false)
end)
end
def nl_to_br(text) do
String.replace(text, "\n", "<br />")
end
def pagination_bar(assigns, page, size) do
prev = if page == 0, do: 0, else: page - 1
# TODO max
next = page + 1
~E"""
<div>
<a href="<%= Routes.exports_path(@conn, :show, @id, page: prev, size: size) %>">Left</a>
<a href="<%= Routes.exports_path(@conn, :show, @id, page: next, size: size) %>">Right</a>
</div>
"""
end
end
|
