blob: 2fb1eb47888f89de83143efd3d7107799a7dfc30 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(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))))
|
