diff options
| -rw-r--r-- | haunt.scm | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -75,6 +75,15 @@ ((head . tail) (loop tail (cons head result))))))) +(define %collections + `(("Recent Blog Posts" "index.html" ,posts/reverse-chronological))) + +(define (static-page title file-name body) + (lambda (site posts) + (make-page file-name + (with-layout jakob-theme site title body) + sxml->html))) + (define jakob-theme (theme #:name "jakob" #:layout @@ -138,15 +147,6 @@ free culture works available under the " ,%cc-by-sa-link " license.") (a (@ (href ,uri)) "read more ➔")))) posts))))) -(define %collections - `(("Recent Blog Posts" "index.html" ,posts/reverse-chronological))) - -(define (static-page title file-name body) - (lambda (site posts) - (make-page file-name - (with-layout jakob-theme site title body) - sxml->html))) - (define about-page (static-page "About Me" |