summaryrefslogtreecommitdiff
path: root/haunt.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt.scm')
-rw-r--r--haunt.scm26
1 files changed, 8 insertions, 18 deletions
diff --git a/haunt.scm b/haunt.scm
index 05104ec..d171f98 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -53,23 +53,13 @@
(register-metadata-parser! 'date org-string->date)
-(define (static-page title file-name body)
+(define (static-page title slug)
(lambda (site posts)
- (make-page file-name
- (with-layout jakob-theme site title body)
- sxml->html)))
-
-(define about-page
- (static-page
- "About Me"
- "about.html"
- `((h2 "Hi."))))
-
-(define projects-page
- (static-page
- "Projects"
- "projects.html"
- `((h1 "Projects"))))
+ (let ((file-name (format #f "~a.html" slug))
+ (body (load (format #f "~a.scm" slug))))
+ (make-page file-name
+ (with-layout jakob-theme site title body)
+ sxml->html))))
(define %collections
`(("Recent Posts" "index.html" ,posts/reverse-chronological)))
@@ -87,8 +77,8 @@
(article-aliases %aliases)
(atom-feed)
(sort-by-tag)
- about-page
- projects-page
+ (static-page "About Me" "about")
+ (static-page "Projects" "projects")
(static-directory "css")
(static-directory "fonts")
(static-directory "images")))