 
 (defn build-files!
   [root-dir]
-  (map-directory! build-file! (complement fs/directory?) root-dir))
+  (map-directory! build-file! content-file? root-dir))
 
 ;; A site is our primary way of keeping track of content files as they
 ;; change.

  blocks."
  "$$$")

(defn mk-page-record
  [file lines]
  (merge (->> lines (take-while #(not= % *meta-sep*)) (join " ") (read-string))

            (.write writer (render-file page-record lines))))))))

(defn compile-content!
  [site-map content-root build-root]
  (do-directory! (comp (partial compile-file! site-map build-root)
                       build-file!)
                 content-file?
                 content-root))

(defn compile-site!
