core.clj

(ns server.core
  (:require [compojure.core         :refer :all]
            [compojure.handler      :refer [site]]
            [ring.util.response     :refer [response status]]
            [ring.adapter.jetty     :refer [run-jetty]]
            [cheshire.core          :as json]))

(def players (atom ())) 

(defn list-players []
  (response (json/encode @players))) 

(defn create-player [player-name]
  (swap! players conj player-name) 
  (status (response "") 201))

(defn remove-player [player-name]
  (status (response "") 200))

(defroutes app-routes 
  (GET "/players" [] (list-players))
  (PUT "/players/:player-name" [player-name] (create-player player-name))
  (DELETE "/players/:player-name" [player-name] (remove-player player-name)))
(defn -main [& args]
  (run-jetty (site app-routes) {:port 3000}))