parent
a092283cf2
commit
39b8c633b0
@ -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))
|
||||
|
||||
|
@ -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