From be959e462ef7f0eb363c0e1f1501f559f8bc1080 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Mon, 18 Dec 2017 18:15:11 +0100 Subject: [PATCH] About page (preliminar version) --- haunt.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/haunt.scm b/haunt.scm index 04bada4..30885d2 100644 --- a/haunt.scm +++ b/haunt.scm @@ -2,6 +2,8 @@ (haunt builder blog) (haunt builder atom) (haunt builder assets) + (haunt html) + (haunt page) (haunt reader) (haunt reader texinfo) (haunt site) @@ -13,6 +15,12 @@ `(link (@ (rel "stylesheet") (href ,(string-append "css/" name ".css"))))) +(define (static-page title file-name body) + (lambda (site posts) + (make-page file-name + (with-layout flex-theme site title body) + sxml->html))) + (define flex-theme (theme #:name "Flex" #:layout @@ -96,6 +104,12 @@ (hr))) (posts/reverse-chronological posts)))))) +(define about-page + (static-page + "About me" + "about.html" + `((h2 "hi.")))) + (define %collections `(("Home" "index.html" ,posts/reverse-chronological))) @@ -112,6 +126,7 @@ #:builders (list (blog #:theme flex-theme #:collections %collections) (atom-feed) (atom-feeds-by-tag) + about-page (static-directory "images") (static-directory "fonts") (static-directory "css"))) -- 2.39.5