this repo has no description
lustre
frontent
oat-ui
gleam
๐ Add basic navbar items
+176
-10
+15
-6
src/client.gleam
+15
-6
src/client.gleam
···
1
+
import client/language
1
2
import client/page
2
3
import client/page/home
3
4
import client/page/login
···
25
26
route: route.Route,
26
27
/// Current Page model
27
28
page: page.Page,
29
+
/// Selected language
30
+
lang: language.Language,
28
31
)
29
32
}
30
33
···
87
90
88
91
// Batch all scheduled effects and build the initial application `Model`
89
92
let effect = effect.batch([restore_session, init_modem])
90
-
#(Model(session:, route:, page:), effect)
93
+
#(Model(session:, route:, page:, lang: language.BrazillianPortuguese), effect)
91
94
}
92
95
93
96
fn init_session(
···
113
116
f: fn(a) -> Msg,
114
117
) -> element.Element(Msg) {
115
118
html.section([attr.data("sidebar-layout", "")], [
116
-
navbar.view(model.session) |> element.map(NavbarMsg),
119
+
navbar.view(model.session, model.lang) |> element.map(NavbarMsg),
117
120
sidebar.view(model.session) |> element.map(SidebarMsg),
118
121
html.main([attr.class("p-4")], [element_view |> element.map(f)]),
119
122
])
···
123
126
pub fn view(model: Model) -> element.Element(Msg) {
124
127
case model {
125
128
// HOME PAGE ---------------------------------------------------------------
126
-
Model(session:, route: route.Home, page: page.Home) ->
129
+
Model(session:, route: route.Home, page: page.Home, ..) ->
127
130
layout(model, home.view(session), HomeMsg)
128
131
129
132
// LOGIN PAGE --------------------------------------------------------------
130
-
Model(session:, route: route.Login, page: page.Login(page)) ->
133
+
Model(session:, route: route.Login, page: page.Login(page), ..) ->
131
134
layout(model, login.view(session, page), LoginMsg)
132
135
133
136
_ -> not_found.view()
···
139
142
/// Update current application `Model`
140
143
pub fn update(model: Model, msg: Msg) -> #(Model, Effect(Msg)) {
141
144
case model, msg {
142
-
// NAVIGATION
145
+
// ๏ธ NAVIGATION
143
146
model, UserNavigatedTo(route) -> handle_navigation(model, route)
144
147
148
+
// ๏ LANGUAGE SELECTION
149
+
model, NavbarMsg(navbar.UserSelectedLanguage(lang)) -> #(
150
+
Model(..model, lang:),
151
+
effect.none(),
152
+
)
153
+
145
154
// SESSION MANAGEMENT -----------------------------------------------------
146
155
//
147
156
// Success
148
157
Model(session: session.Pending(on_success:, on_error: _), ..),
149
158
UserRestoredSession(Ok(session))
150
159
-> #(
151
-
Model(session:, route: on_success, page: page.init(on_success)),
160
+
Model(..model, session:, route: on_success, page: page.init(on_success)),
152
161
modem.push(route.to_path(on_success), option.None, option.None),
153
162
)
154
163
+24
src/client/language.gleam
+24
src/client/language.gleam
···
1
+
pub type Language {
2
+
BrazillianPortuguese
3
+
English
4
+
German
5
+
Spanish
6
+
}
7
+
8
+
pub fn to_flag(lang: Language) {
9
+
case lang {
10
+
BrazillianPortuguese -> "๐ง๐ท"
11
+
English -> "๐บ๐ธ"
12
+
German -> "๐ฉ๐ช"
13
+
Spanish -> "๐ช๐ธ"
14
+
}
15
+
}
16
+
17
+
pub fn to_string(lang: Language) {
18
+
case lang {
19
+
BrazillianPortuguese -> "Brazillian Portuguese"
20
+
English -> "English"
21
+
German -> "German"
22
+
Spanish -> "Spanish"
23
+
}
24
+
}
+54
src/icon.gleam
+54
src/icon.gleam
···
65
65
],
66
66
)
67
67
}
68
+
69
+
pub fn globe(attributes: List(Attribute(a))) {
70
+
svg.svg(
71
+
[
72
+
attribute("stroke-linejoin", "round"),
73
+
attribute("stroke-linecap", "round"),
74
+
attribute("stroke-width", "2"),
75
+
attribute("stroke", "currentColor"),
76
+
attribute("fill", "none"),
77
+
attribute("viewBox", "0 0 24 24"),
78
+
attribute("height", "24"),
79
+
attribute("width", "24"),
80
+
..attributes
81
+
],
82
+
[
83
+
svg.circle([
84
+
attribute("r", "10"),
85
+
attribute("cy", "12"),
86
+
attribute("cx", "12"),
87
+
]),
88
+
svg.path([
89
+
attribute("d", "M12 2a14.5 14.5 0 0 0 0 20 14.5 14.5 0 0 0 0-20"),
90
+
]),
91
+
svg.path([attribute("d", "M2 12h20")]),
92
+
],
93
+
)
94
+
}
95
+
96
+
pub fn leaf(attributes: List(Attribute(a))) {
97
+
svg.svg(
98
+
[
99
+
attribute("stroke-linejoin", "round"),
100
+
attribute("stroke-linecap", "round"),
101
+
attribute("stroke-width", "2"),
102
+
attribute("stroke", "currentColor"),
103
+
attribute("fill", "none"),
104
+
attribute("viewBox", "0 0 24 24"),
105
+
attribute("height", "24"),
106
+
attribute("width", "24"),
107
+
..attributes
108
+
],
109
+
[
110
+
svg.path([
111
+
attribute(
112
+
"d",
113
+
"M11 20A7 7 0 0 1 9.8 6.1C15.5 5 17 4.48 19 2c1 2 2 4.18 2 8 0 5.5-4.78 10-10 10Z",
114
+
),
115
+
]),
116
+
svg.path([
117
+
attribute("d", "M2 21c0-3 1.85-5.36 5.08-6C9.5 14.52 12 13 13 12"),
118
+
]),
119
+
],
120
+
)
121
+
}