diff options
| -rw-r--r-- | css/dthompson.css | 14 | ||||
| -rw-r--r-- | haunt.scm | 3 | ||||
| -rw-r--r-- | theme.scm | 15 |
3 files changed, 30 insertions, 2 deletions
diff --git a/css/dthompson.css b/css/dthompson.css index b47f092..096d1e3 100644 --- a/css/dthompson.css +++ b/css/dthompson.css @@ -204,6 +204,20 @@ footer { margin-right: 4rem; } +/* Pagination */ + +.paginator { + display: flex; +} + +.paginator-spacer { + flex: 1; +} + +.paginator-next { + text-align: right; +} + /* Syntax Highlighting */ .syntax-special, .syntax-element { @@ -64,7 +64,8 @@ organic gardener, woodworker, and drummer.") '((author . "David Thompson") (email . "davet@gnu.org")) #:readers (list commonmark-reader*) - #:builders (list (blog #:theme dthompson-theme #:collections %collections) + #:builders (list (blog #:theme dthompson-theme #:collections %collections + #:posts-per-page 10) (atom-feed) (atom-feeds-by-tag) about-page @@ -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) |