My personal website, in gleam+lustre!
We will prepare a sitemap.xml, and create a sitemap view from this!
+35
-1
+35
-1
src/homepage.gleam
+35
-1
src/homepage.gleam
···
61
61
]
62
62
}
63
63
64
+
const pages = [
65
+
#("/", Index, "Home", Date(2026, March, 16)),
66
+
#("/posts", Posts, "Posts", Date(2026, March, 16)),
67
+
#("/me", Me, "About me", Date(2026, March, 16)),
68
+
#("/me/portfolio", Portfolio, "Portfolio", Date(2026, March, 16)),
69
+
#("/me/links", Links, "Links", Date(2026, March, 16)),
70
+
]
71
+
72
+
fn sitemap() -> List(#(String, Route, String, Date)) {
73
+
let posts =
74
+
posts()
75
+
|> list.map(fn(post) {
76
+
#(
77
+
"/post/"
78
+
<> case post.aliases {
79
+
[] -> int.to_string(post.id)
80
+
[alias, ..] -> alias
81
+
},
82
+
PostById(post.id),
83
+
post.title,
84
+
case post.revised {
85
+
Some(new) -> new
86
+
None -> post.published
87
+
},
88
+
)
89
+
})
90
+
pages |> list.append(posts)
91
+
}
92
+
93
+
fn view_sitemap() -> Element(Msg) {
94
+
let all = sitemap()
95
+
todo
96
+
}
97
+
64
98
const highlighted_posts = [900]
65
99
66
100
// Links on my php
···
154
188
img_url: "/img/badges/getfirefox.gif",
155
189
img_alt: "Get Firefox",
156
190
img_title: "GET FIREFOX",
157
-
clickable_url: "https://www.mozilla.org/nl/firefox/new/",
191
+
clickable_url: "https://librewolf.net/",
158
192
text_badge: "",
159
193
),
160
194
Badge(