   (write-file (path-join dir (:css-file @config))
               (read-css)))
 
+(defn as-relative [f]
+  (clojure.string/replace f #"^/" ""))
 
 ;;; Main entry points
 

       [:meta {:charset "utf-8"}]
       [:meta {:name 'viewport
               :content "width=device-width, initial-scale=1.0"}]
       [:base {:href (prefix "")}]
       [:link {:href (str css-file timestamp) :rel 'stylesheet}]
       [:title title]]
      [:body


(declare page-content)

(defonce config (r/atom {;;:page-map {"index.html" [:div "Empty"]}
                         ;;:page-titles {}
                         :body [page-content]
                         :main-content [:div]
                         :pages #{}
