commit - 0458ea2b567194458f27367ac189218f8fc1d8a1
commit + 611f788ae52ffb483c25839a05a4be9dd215eb31
blob - 4c02692be20344f342697011e38357e2bb04bfc6
blob + 77a5ec04d8ea0846e046912e0a60ae98cc4dbf59
--- src/blog/http.clj
+++ src/blog/http.clj
(defn home-page
[{:keys [posts has-next has-prev nth]}]
(with-page {:title "Home"}
+ [:p "Hello! Sometimes I remember that I have a blog and post something here. "
+ "You can find me " [:strike "wasting time"]
+ " posting interesting stuff on the fediverse too: "
+ ;; <a rel="me" href="https://bsd.network/@op">Mastodon</a>
+ [:a {:href "https://bsd.network/@op"
+ :rel "me"}
+ "@op@bsd.network"] "."]
(map (partial post-fragment {:title-with-link? true})
posts)
[:nav.post-navigation