this repo has no description
lustre
frontent
oat-ui
gleam
:construction: add session, user and route types
+147
-2
+58
-2
client/src/client.gleam
+58
-2
client/src/client.gleam
···
1
-
import gleam/io
1
+
import client/page
2
+
import lustre
3
+
import lustre/effect.{type Effect}
4
+
import modem
5
+
import rsvp
6
+
import shared/route
7
+
import shared/session
8
+
9
+
pub type Model {
10
+
Model(
11
+
/// Current user
12
+
session: session.Session,
13
+
/// Current route
14
+
route: route.Route,
15
+
/// Current Page model
16
+
page: page.Page,
17
+
)
18
+
}
2
19
3
20
pub fn main() -> Nil {
4
-
io.println("Hello from client!")
21
+
let app = lustre.application(init:, update: todo, view: todo)
22
+
let assert Ok(_runtime) = lustre.start(app, "#app", Nil)
23
+
24
+
Nil
25
+
}
26
+
27
+
pub type Msg {
28
+
UserNavigatedTo(route.Route)
29
+
UserRestoredSession(Result(session.Session, rsvp.Error))
30
+
}
31
+
32
+
pub fn init(_props: Nil) -> #(Model, Effect(Msg)) {
33
+
let assert Ok(uri) = modem.initial_uri()
34
+
let route = route.parse(uri)
35
+
let page = page.init(route)
36
+
let is_protected = route.is_protected(route)
37
+
let session = init_session(route, is_protected)
38
+
39
+
let router_effect =
40
+
modem.init(fn(uri) { route.parse(uri) |> UserNavigatedTo })
41
+
42
+
let session_effect =
43
+
UserRestoredSession
44
+
|> rsvp.expect_json(session.decoder(), _)
45
+
|> rsvp.get("/api/whoami", _)
46
+
47
+
let effect = effect.batch([session_effect, router_effect])
48
+
#(Model(session:, route:, page:), effect)
49
+
}
50
+
51
+
fn init_session(route: route.Route, is_protected: Bool) -> session.Session {
52
+
case route {
53
+
route.Login | route.Home ->
54
+
session.Pending(on_success: route.Home, on_error: route)
55
+
56
+
route if is_protected ->
57
+
session.Pending(on_success: route, on_error: route.Login)
58
+
59
+
_ -> session.None
60
+
}
5
61
}
+17
client/src/client/page.gleam
+17
client/src/client/page.gleam
···
1
+
import client/page/login
2
+
import shared/route
3
+
4
+
pub type Page {
5
+
Home
6
+
Login(login.Model)
7
+
8
+
NotFound
9
+
}
10
+
11
+
pub fn init(route: route.Route) {
12
+
case route {
13
+
route.Home -> Home
14
+
route.Login -> Login(login.empty)
15
+
route.NotFound -> NotFound
16
+
}
17
+
}