(ns lezer.app
  (:require lezer.controller.routes)
  (:require lezer.db)
  (:require phel.router :as r)
  (:require phel.http :as h))

(db/initialize-database)

(def- router
  (r/router
   [["/" {:handler (fn [req]
                     (routes/index-handler req router))}]
    ["/book" {:post {:handler routes/book-create-handler}}]
    ["/book/{id}" {:name :book
                   :get {:handler routes/book-view-handler}}]
    ["/book/{id}/session" {:post {:handler routes/book-session-create-handler}}]
    ["/author/{id}" {:name :author
                     :get {:handler routes/author-view-handler}}]]))

(def app
  (r/handler router))

(when-not *build-mode*
  (h/emit-response (app (h/request-from-globals))))