diff --git a/client/gen.exs b/client/gen.exs
index ccc1a1c..415332b 100644
--- a/client/gen.exs
+++ b/client/gen.exs
@@ -94,7 +94,7 @@ index_file =
|> Enum.sort_by(fn {d, _c} -> ((length months) * elem(Integer.parse(String.slice(d, 4..7)), 0)) + Enum.find_index(months, &(&1 == String.slice(d, 0..2))) end)
|> Enum.reverse()
|> Enum.map(fn {month, posts} -> "\n
" <> month <> "
\n" <> (posts |>
- Enum.map(fn post -> "" <> (Map.get(post, :date) |> String.slice(0..6)) <>
+ Enum.map(fn post -> ""
end) |> Enum.join("\n")) end)
|> Enum.join("\n")
diff --git a/client/public/assets/styling/general.css b/client/public/assets/styling/general.css
index 6aef140..cc63fef 100644
--- a/client/public/assets/styling/general.css
+++ b/client/public/assets/styling/general.css
@@ -17,6 +17,28 @@ nav {
border-bottom-right-radius: 5px;
}
+main {
+ padding-bottom: 12em;
+}
+
+article {
+ max-width: 1000px;
+ margin: auto;
+}
+
+pre {
+ padding: 1em;
+ padding-left: 2em;
+ border: solid;
+ border-radius: 1em;
+ border-width: 1px;
+ border-color: var(--text-color);
+}
+
+.figure > p {
+ text-align: center;
+}
+
.question {
font-style: italic;
}
@@ -27,6 +49,9 @@ h1 {
h2 {
font-size: 1.25em;
+}
+
+.post-link {
margin: auto 0;
}
diff --git a/client/public/index.lisp b/client/public/index.lisp
index 88d60fb..9063ec5 100644
--- a/client/public/index.lisp
+++ b/client/public/index.lisp
@@ -22,14 +22,15 @@
(a :href "/" "Home") "|"
(a :href "/posts" "Posts") "|"
(a :href "/qa" "QA"))
- (header
- (h1 "Home"))
- (p "Hi there, good to see you on my website.
- My name is Raymon Zutekouw; Self-taught programmer by heart.")
- (p "Building software and exploring the wide variety of tools (or making them) is my passion.
- To see it in action, checkout the stuff I make on "
- (a :href "https://github.com/Raymonzut" "GitHub."))
+ (article
+ (header
+ (h1 "Home"))
+ (p "Hi there, good to see you on my website.
+ My name is Raymon Zutekouw; Self-taught programmer by heart.")
+ (p "Building software and exploring the wide variety of tools (or making them) is my passion.
+ To see it in action, checkout the stuff I make on "
+ (a :href "https://github.com/Raymonzut" "GitHub."))
- (p "The projects that may be useful to others are open source; for inspiring others and improving each others work.
- That is why I am a huge fan of "
- (a :href "https://www.gnu.org/philosophy/free-sw.en.html" "free software")))))
+ (p "The projects that may be useful to others are open source; for inspiring others and improving each others work.
+ That is why I am a huge fan of "
+ (a :href "https://www.gnu.org/philosophy/free-sw.en.html" "free software"))))))
diff --git a/client/templates/post_index_page.lisp b/client/templates/post_index_page.lisp
index 4519d6b..dd54d20 100644
--- a/client/templates/post_index_page.lisp
+++ b/client/templates/post_index_page.lisp
@@ -22,6 +22,7 @@
(a :href "/" "Home") "|"
(a :href "/posts" "Posts") "|"
(a :href "/qa" "QA"))
- (header
- (h1 "Post listing"))
- "{{index}}")))
+ (article
+ (header
+ (h1 "Post listing"))
+ "{{index}}"))))