# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1314831012 14400
# Node ID 19fc4b6444f5d64ee4fe6ecdf51a8ece96ed8efb
# Parent  aa67f93d6fe4b1d5290f6d42bccad4cd7eb37dee
Buffer input and output.

diff -r aa67f93d6fe4 -r 19fc4b6444f5 src/clojurecraft/core.clj
--- a/src/clojurecraft/core.clj	Fri Aug 26 20:12:29 2011 -0400
+++ b/src/clojurecraft/core.clj	Wed Aug 31 18:50:12 2011 -0400
@@ -10,7 +10,7 @@
   (:require (clojurecraft.data))
   (:import [clojurecraft.data Location Entity Block Chunk World Bot])
   (:import (java.net Socket)
-           (java.io DataOutputStream DataInputStream)
+           (java.io DataOutputStream DataInputStream BufferedInputStream BufferedOutputStream)
            (java.util.concurrent LinkedBlockingQueue TimeUnit)))
 
 (def STARTING-LOC (Location. 0 0 0 0 0 0 false))
@@ -108,8 +108,8 @@
 (defn connect [server username]
   (let [username (or username (random-username))
         socket (Socket. (:name server) (:port server))
-        in (DataInputStream. (.getInputStream socket))
-        out (DataOutputStream. (.getOutputStream socket))
+        in (DataInputStream. (BufferedInputStream. (.getInputStream socket)))
+        out (DataOutputStream. (BufferedOutputStream. (.getOutputStream socket)))
         conn (ref {:in in :out out})
         outqueue ^LinkedBlockingQueue (LinkedBlockingQueue.)
         actionqueue (LinkedBlockingQueue.)