 
 
 ; Handling Packets -----------------------------------------------------------------
+(defn handle-packet-keepalive [conn]
+      (println "OMG got a keepalive")
+      nil)
+
 (defn handle-packet-handshake [conn]
       (println "OMG got a handshake")
       (-> {}

      (doto (:out @conn)
         (.writeChars s)))

(defn writ-chars [conn s]
      (println (str "-> CHARS: " s))
      (doto (:out @conn)
         (.writeChars s)))


; Writing Packets ------------------------------------------------------------------
(defn write-packet-handshake [conn {username :username}]


; Packet Type Maps -----------------------------------------------------------------
(def packet-ids {
     :keepalive 0x00
     :login 0x01 
     :handshake 0x02 
})
(def packet-types (apply assoc {} (mapcat reverse packet-ids)))

(declare conn-handler)

