Compare commits

...

2 commits

Author SHA1 Message Date
anatoly
0e49811889 [lein-ring example]: unused deps 2015-12-27 17:46:56 -05:00
anatoly
c90907fa63 adding lein-ring :handler/:init example 2015-12-27 17:40:50 -05:00
3 changed files with 11 additions and 21 deletions

1
.gitignore vendored
View file

@ -16,3 +16,4 @@ doo-index.html
/.idea
/.lein-repl-history
/.nrepl-history
clojurescript.js

View file

@ -1,31 +1,15 @@
(ns app.www
(:require [app.nyse :refer [add-order find-orders create-nyse-schema]]
[app.conf :refer [config]]
[mount.core :refer [defstate]]
[cheshire.core :refer [generate-string]]
[compojure.core :refer [routes defroutes GET POST]]
[compojure.handler :as handler]
[ring.adapter.jetty :refer [run-jetty]]))
[compojure.core :refer [routes defroutes GET]]))
(defroutes mount-example-routes
(GET "/" [] "welcome to mount sample app!")
(GET "/nyse/orders/:ticker" [ticker]
(generate-string (find-orders ticker)))
(generate-string (find-orders ticker))))
(POST "/nyse/orders" [ticker qty bid offer]
(add-order ticker (bigdec bid) (bigdec offer) (Integer/parseInt qty))
(generate-string {:added {:ticker ticker
:qty qty
:bid bid
:offer offer}})))
(defn start-nyse [{:keys [www]}]
(create-nyse-schema) ;; creating schema (usually done long before the app is started..)
(-> (routes mount-example-routes)
(handler/site)
(run-jetty {:join? false
:port (:port www)})))
(defstate nyse-app :start (start-nyse config)
:stop (.stop nyse-app)) ;; it's a "org.eclipse.jetty.server.Server" at this point
(defstate nyse-app :start (do (create-nyse-schema)
(add-order "GOOG" 665.51M 665.59M 100)))

View file

@ -25,10 +25,15 @@
[com.datomic/datomic-free "0.9.5327" :exclusions [joda-time]]]
:plugins [[lein-cljsbuild "1.1.1"]
[lein-ring "0.9.7"]
[lein-doo "0.1.6"]
[lein-figwheel "0.5.0-2"]
[test2junit "1.1.3"]]
:ring {:handler app.www/mount-example-routes
:init mount.core/start
:port 4242}
:test2junit-output-dir ~(or (System/getenv "CIRCLE_TEST_REPORTS") "target/test2junit")
:clean-targets ^{:protect false} [:target-path