core.clj

(ns prison.core
  (:require [gniazdo.core :as ws]
            [clojure.data.json :as json]))

(defn parse [str]
  (json/read-str str :key-fn keyword))

(def msg-atom (atom nil))

(defn handle [msg]
  (reset! msg-atom msg)
  (ws/send-msg socket (json/write-str {:tag "SetColor" :contents "#0000ff"}))
  (ws/send-msg socket (json/write-str {:tag "MakeChoice" :contents ["Betray" "North"]}))
  (ws/send-msg socket (json/write-str {:tag "MakeChoice" :contents ["Betray" "South"]}))
  (ws/send-msg socket (json/write-str {:tag "MakeChoice" :contents ["Betray" "West"]}))
  (ws/send-msg socket (json/write-str {:tag "MakeChoice" :contents ["Betray" "East"]})))

(defonce socket
  (ws/connect
      "ws://game.clearercode.com:8000"
    :on-receive #(handle (parse %))))






#_(
   (ws/send-msg socket "hello")
   (ws/close socket)
   )