ipad-ws.clj

(ns ninth-post.websocket
  (:use [aleph.http core server]
        lamina.core)
  (:require [clj-json.core :as json]))

(def square (ref {:x 100 :y 100}))
(def broadcast-channel (channel))

(defn handler [ch handshake]
  (siphon ch broadcast-channel)
  (siphon broadcast-channel ch)
  (enqueue ch (json/generate-string {:square @square})))

(start-http-server #'handler {:port 9000 :websocket true})