          (strip-file-info page-record)))
 
 (defn compile-file!
-  [site-map build-path [page-record lines]]
-  (let [output (mk-output build-path (:path page-record))]
+  [site-map build-root [page-record lines]]
+  (let [output (mk-output build-root (:path page-record))]
     (with-parent-dir output
       (fn []
         (with-open [writer (clojure.java.io/writer output)]


(defn build-files!
  [root-dir]
  (map-directory! build-file! (complement fs/directory?) root-dir))

;; A site is our primary way of keeping track of content files as they
;; change.

            (.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!
