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


(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]

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

(defn strip-extension
