blob: 41565bfcd05b15411f9e5d70751392fbcc4317df (
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
25
|
(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))}]
["/ping" {:name ::ping
:get {:handler routes/ping-handler}
:post {:handler routes/ping-handler}}]
["/book" {:post {:handler routes/book-create-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))))
|
