Fix bugs and implement changes main

I can actually build a (one-page) site!

1 files changed, 5 insertions, 4 deletions

@@ -11,6 +11,8 @@
         (chicken pathname)
         (chicken process-context))
 
+;; State variables
+
 (define site-posts
   (make-parameter '()))
 
@@ -28,9 +30,6 @@
 
 (define (go!)
   (eprint "Building " (site-name) "...")
-  (when (file-exists? (site-config))
-    (with-progress (string-append "Config found, loading: " (site-config))
-                   (lambda () (load (site-config)))))
   (for-each (lambda (f)
               (with-progress (string-append "Copying " f " to " (site-output))
                              (lambda () (copy-static f)))) (site-files))
@@ -52,7 +51,9 @@
   (let loop ((args args))
     (cond
      ((null? args)
-      (for-each print (site-posts))
+      (when (file-exists? (site-config))
+        (with-progress (string-append "Loading " (site-config))
+                       (lambda () (load (site-config)))))
       (go!))
      ;; Configuration file: -c FILE
      ((equal? (car args) "-c")