diff options
author | David Thompson <dthompson2@worcester.edu> | 2022-02-05 17:43:29 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2022-02-05 17:43:29 -0500 |
commit | 073e3a4f11d6987774b44aac1649197dfcacae1b (patch) | |
tree | c4946fcf35bd5c8f856bd970dbb7f84fbf911b47 /theme.scm | |
parent | 738527623d6ecacf6a384525e17e56bde7265fc9 (diff) |
Add pagination.
Diffstat (limited to 'theme.scm')
-rw-r--r-- | theme.scm | 15 |
1 files changed, 14 insertions, 1 deletions
@@ -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) |