ClojureBridge/global-growth modifications

core.clj

(ns clojurebridge.core
  (:require [clojure.edn :as edn] 
            [clj-http.client :as client]
            [cheshire.core :as json]))

project.clj

  :dependencies [[org.clojure/clojure "1.7.0"]
                 [clj-http "2.0.0"]
                 [cheshire "5.5.0"]
                 [ring "1.4.0"] 
                 [ring/ring-json "0.4.0"]
                 [ring/ring-defaults "0.1.5"]
                 [compojure "1.4.0"]
                 [hiccup "1.0.5"]]

web.clj

(ns clojurebridge.web
  (:require [ring.adapter.jetty :as jetty] 
            [ring.middleware.defaults :refer :all]
            [ring.util.response :as response]
            [ring.middleware.json :refer [wrap-json-response]]            
            [clojurebridge.core :as api]
            [compojure.core :refer [defroutes GET]]
            [compojure.handler :refer [site]]
            [hiccup.core :as hiccup]
            [hiccup.page :as page]
            [hiccup.form :as form]))

;;; ...

;;; Ennen main-routesia

 (defn json-content [data]
   (-> data response/response (response/content-type "application/json")))

;;; Tiedoston loppuun:

(def app (-> main-routes 
           (wrap-defaults site-defaults)
           wrap-json-response))

(defonce server (atom nil))

(defn stop! []
  (swap! server #(.stop %)))

(defn -main [& args]
  (if-not @server 
    (reset! server (jetty/run-jetty #'app {:port 3000 :join? false}))
    (println "Already started")))