From b72952b415c16f660920d4e878f925e99c7f66bd Mon Sep 17 00:00:00 2001 From: John Bintz Date: Wed, 13 Jan 2016 06:54:05 -0500 Subject: [PATCH] cleanup server.cljs a tad Left some in-editor execution stuff in there --- src/server/picture_processor/server.cljs | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/src/server/picture_processor/server.cljs b/src/server/picture_processor/server.cljs index f3f455c..6fcbbda 100644 --- a/src/server/picture_processor/server.cljs +++ b/src/server/picture_processor/server.cljs @@ -1,6 +1,9 @@ (ns picture-processor.server) +; js requires (def express (js/require "express")) + +; the currently running server (def server (atom nil)) (defn- root-response @@ -11,18 +14,16 @@ "Start the app server" [port] (let [app (express)] + ; build the routing tree (.get app "/" root-response) - (let [-server (.listen app port #(.log js/console (str "Server listening on port " port)))] - (reset! server -server) - (.log js/console @server) - ))) + (let [-server (.listen app + port + #(.log js/console (str "Server listening on port " + port)))] + (reset! server -server)))) (defn stop "Stop the app server" [] (.close @server) (reset! server nil)) - -(start 3000) -(stop) -(.log js/console @server)