                           (do (save-document body)
                               (response
                                {:status  "OK"}))))
-  (GET "/setup" [] (do  (init :dev) (response {:status "inited"})))
   (GET "/login" request
        (h/html5 pretty-head (pretty-body login-form)))
   (GET "/logout" req


(def app
  (-> (handler/site app-routes)
      (friend/authenticate {:allow-anon? true
                            :login-uri "/login"
                            :default-landing-uri "/user/profile"


(def pretty-head
  [:head [:link {:href "/css/normalize.css" :rel "stylesheet" :type "text/css"}]
   [:link {:href "/css/foundation.min.css" :rel "stylesheet" :type "text/css"}]
         [:style {:type "text/css"} "ul { padding-left: 2em }"]
         [:script {:src "/js/foundation.min.js" :type "text/javascript"}]])

