   [mapping]
   (reduce (fn [site [path inf]]
             (assoc-in site
-                      (resource-key (:url inf))
+                      (site-nav (:url inf))
                       (update-in inf [:url] canonical-url)))
           {}
           mapping))

                  writer (html-writer build-root url)]
        (f (assoc site
                  :current-page
                  (get-in site (resource-key url)))
           reader
           writer)))))
      

  [path]
  (-> path (relative-path) (strip-extensions) (str ".html")))

(defn file-mapping
  [info root file]
  (let [path (.getPath file)]
