           (let [root-part (first (fs/split root-dir))]
             (get (reduce #(add-page %1 (first %2))
                          {}
-                         (build-files! root-dir))
+                         (read-content-directory! root-dir))
                  (keyword root-part)))))
 
 (defn strip-extension


(defn page-record? [x] (and (coll? x) (contains? x :mod-time)))

(defn build-file!
  [file lines]
  [(mk-page-record file lines)
   (content-section lines)])

(defn build-files!
  [root-dir]
  (map-directory! build-file! content-file? root-dir))

(defn add-page
  [site-map page-record]

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

