Load static pages rather than inlining

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")))