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

                         :default-title ""
                         :allow-html5-history false}))

(defonce page (r/atom "index.html"))
(defonce page-state (r/atom {:has-history false}))

(defonce history nil)


       [:script {:src main :type "text/javascript"}]]])))

(defn gen-page [page-name timestamp]
  ;; (reset! page page-name)
  (dispatch [:set-page page-name])
  (let [b (r/render-component-to-string (body))]
    (str "<!doctype html>"
         (html-template {:title (:title @config) ;;(get-title)
