···
6
6
build: fetch-favicon fetch-showcase-icons
7
7
gleam run -m lustre/dev build
8
8
9
9
-
dev: fetch-favicon fetch-showcase-icons
9
9
+
dev:
10
10
gleam run -m lustre/dev start
11
11
12
12
add-icon name:
···
77
77
use dispatch <- effect.from
78
78
do_update_document_title(new)
79
79
80
80
-
DocumentTitleUpdated(new: new)
80
80
+
DocumentTitleUpdated(new:)
81
81
|> dispatch
82
82
}
83
83
···
97
97
UserNavigatedTo(route:)
98
98
}
99
99
100
100
-
let fetch_documents =
101
101
-
atproto.fetch_standard_documents(atproto)
102
102
-
|> effect.map(AtProtoMessage)
103
103
-
104
104
-
let fetch_bluesky_profile =
105
105
-
atproto.fetch_bluesky_profile(atproto)
106
106
-
|> effect.map(AtProtoMessage)
107
107
-
108
108
-
let new_document_title =
109
109
-
{ "/" <> route.to_string(route) }
110
110
-
|> update_document_title
111
111
-
112
100
let effect =
113
101
effect.batch([
114
102
page_effect,
115
103
init_modem,
116
116
-
fetch_documents,
117
117
-
new_document_title,
118
118
-
fetch_bluesky_profile,
104
104
+
update_document_title("/" <> route.to_string(route)),
105
105
+
atproto.fetch_standard_documents(atproto) |> effect.map(AtProtoMessage),
106
106
+
atproto.fetch_bluesky_profile(atproto) |> effect.map(AtProtoMessage),
119
107
])
120
108
121
109
#(Model(title: "kacaii.dev", route:, page:, atproto:), effect)