irc.clj

(defn connect [server]
  (let [socket (Socket. (:name server) (:port server))
        in (BufferedReader. (InputStreamReader. (.getInputStream socket)))
        out (PrintWriter. (.getOutputStream socket))
        conn (ref {:in in :out out})]
    (doto (Thread. #(conn-handler conn)) (.start))
    conn))

(defn write [conn msg]
  (doto (:out @conn)
    (.println (str msg "\r"))
    (.flush)))

(defn conn-handler [conn]
  (while
   (nil? (:exit @conn))
   (let [msg (.readLine (:in @conn))]
     (println msg)
     (cond
      (re-find #"^ERROR :Closing Link:" msg)
      (dosync (alter conn merge {:exit true}))
      (re-find #"^PING" msg)
      (write conn (str "PONG "  (re-find #":.*" msg)))))))