github-migration/picture-processor-cljs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cleanup server.cljs a tad

Browse Source 
Left some in-editor execution stuff in there
This commit is contained in:
John Bintz 2016-01-13 06:54:05 -05:00
parent 5886d6cf9a
commit b72952b415
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/server/picture_processor/server.cljs
View File

@ -1,6 +1,9 @@
(ns picture-processor.server) (ns picture-processor.server)
; js requires
(def express (js/require "express")) (def express (js/require "express"))
; the currently running server
(def server (atom nil)) (def server (atom nil))
(defn- root-response (defn- root-response
@ -11,18 +14,16 @@
"Start the app server" "Start the app server"
[port] [port]
(let [app (express)] (let [app (express)]
; build the routing tree
(.get app "/" root-response) (.get app "/" root-response)
(let [-server (.listen app port #(.log js/console (str "Server listening on port " port)))] (let [-server (.listen app
(reset! server -server) port
(.log js/console @server) #(.log js/console (str "Server listening on port "
))) port)))]
(reset! server -server))))
(defn stop (defn stop
"Stop the app server" "Stop the app server"
[] []
(.close @server) (.close @server)
(reset! server nil)) (reset! server nil))
(start 3000)
(stop)
(.log js/console @server)