diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-04-27 20:24:39 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org> | 2019-04-27 20:24:39 -0400 |
| commit | 936509a4a5be6032a06323b6dd8994cf4e62aa6b (patch) | |
| tree | a828b1768a50ac6e7a34fbbe04495050600ee75c /haunt.scm | |
| parent | c4b30850dc65b62eaf11931b439386c903d45e04 (diff) | |
Reorganize functions
Diffstat (limited to 'haunt.scm')
| -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" |