gistfile1.clj

(defn msg-loop [socket user running]
  (when running
    (println "running?" running)
    (let [msg (read-line)]
      (when (= msg "quit")
        (println "disconnecting user" user)
        (zend socket (str {:type :quit}))
        (msg-loop socket user false))
      (zend socket (str {:type :msg :user user :msg msg}))
      (recur socket user true))))


(defn join [user] 
  (with-open [socket (Socket. "localhost" 8888)]
    (register socket user)
    (println "waiting for input")
    (msg-loop socket user true)))