parent
a092283cf2
commit
39b8c633b0
@ -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))))
|
||||||
|
|
Loading…
Reference in new issue