Update to move server logic to the server module.
This commit is contained in:
+2
-11
@@ -1,16 +1,7 @@
|
|||||||
(ns blog.core
|
(ns blog.core
|
||||||
(:require ["express" :as express]
|
(:require [blog.server :as server]))
|
||||||
[blog.env :as env]))
|
|
||||||
|
|
||||||
(def app (express))
|
|
||||||
(def port (env/get-port))
|
|
||||||
|
|
||||||
(defn main []
|
(defn main []
|
||||||
(. app get "/"
|
(server/start))
|
||||||
(fn [req res]
|
|
||||||
(. res send "Hello world")))
|
|
||||||
|
|
||||||
(. app listen port
|
|
||||||
(fn []
|
|
||||||
(println "Listen on " port))))
|
|
||||||
|
|
||||||
|
|||||||
@@ -0,0 +1,23 @@
|
|||||||
|
(ns blog.server
|
||||||
|
(:require ["express" :as express]
|
||||||
|
[blog.env :as env]))
|
||||||
|
|
||||||
|
(def app (express))
|
||||||
|
(def port (env/get-port))
|
||||||
|
|
||||||
|
(defn set-routes
|
||||||
|
"Sets the routes for server."
|
||||||
|
[]
|
||||||
|
(. app get "/"
|
||||||
|
(fn [req res]
|
||||||
|
(. res send "Hello world"))))
|
||||||
|
|
||||||
|
(defn start
|
||||||
|
"Starts server."
|
||||||
|
[]
|
||||||
|
(set-routes)
|
||||||
|
|
||||||
|
(. app listen port
|
||||||
|
(fn []
|
||||||
|
(println "Listen on " port))))
|
||||||
|
|
||||||
Reference in New Issue
Block a user