Fix blog when there are less than 8 posts

1 files changed, 3 insertions, 1 deletions

diff --git a/haunt.scm b/haunt.scm
index ef11d84..b3244ce 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -36,7 +36,9 @@
              #:collections
              `(("Recent posts" "index.html"
                 ,(compose (lambda (posts)
-                            (take posts 8))
+                            (if (< (length posts) 8)
+                                posts
+                                (take posts 8)))
                           filter-posts-remove-future-drafts
                           posts/reverse-chronological))
                ("All posts" "all.html"