diff --git a/src/main/blog/core.cljs b/src/main/blog/core.cljs index a4aa78f..30f2b93 100644 --- a/src/main/blog/core.cljs +++ b/src/main/blog/core.cljs @@ -1,16 +1,7 @@ (ns blog.core - (:require ["express" :as express] - [blog.env :as env])) + (:require [blog.server :as server])) -(def app (express)) -(def port (env/get-port)) (defn main [] - (. app get "/" - (fn [req res] - (. res send "Hello world"))) - - (. app listen port - (fn [] - (println "Listen on " port)))) + (server/start)) diff --git a/src/main/blog/server.cljs b/src/main/blog/server.cljs new file mode 100644 index 0000000..6f46b6a --- /dev/null +++ b/src/main/blog/server.cljs @@ -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)))) +