Add pagination.

1 files changed, 14 insertions, 1 deletions

diff --git a/theme.scm b/theme.scm
index 0a81d40..dcae710 100644
--- a/theme.scm
+++ b/theme.scm
@@ -116,7 +116,20 @@ free culture works available under the " ,%cc-by-sa-link " license.")
                              (div (@ (class "post"))
                                   ,(first-paragraph post))
                              (a (@ (href ,uri)) "read more ➔"))))
-                   posts)))))
+                   posts)))
+         #:pagination-template
+         (lambda (site body previous-page next-page)
+           `(,@body
+             (div (@ (class "paginator"))
+              ,(if previous-page
+                   `(a (@ (class "paginator-prev") (href ,previous-page))
+                        "🡐 Newer")
+                   '())
+              (span (@ (class "paginator-spacer")))
+              ,(if next-page
+                   `(a (@ (class "paginator-next") (href ,next-page))
+                       "Older 🡒")
+                   '()))))))
 
 (define (static-page title file-name body)
   (lambda (site posts)