Update to move server logic to the server module.

main
KKlochko 1 year ago
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…
Cancel
Save