     :openwindow           (write-packet-openwindow conn payload)
     :closewindow          (write-packet-closewindow conn payload)
     :windowclick          (write-packet-windowclick conn payload)
+    :transaction          (write-packet-transaction conn payload)
 
     )
   (flushc conn))

(defn read-packet-closewindow [conn]
  (assoc {}
    :windowid (-read-byte conn)))


; Reading Wrappers -----------------------------------------------------------------

        :thunderbolt               (read-packet-thunderbolt conn)
        :openwindow                (read-packet-openwindow conn)
        :closewindow               (read-packet-closewindow conn)
        :setslot                   (read-packet-setslot conn)
        :windowitems               (read-packet-windowitems conn)
        :updateprogressbar         (read-packet-updateprogressbar conn)
        :transaction               (read-packet-transaction conn)

        :else (str "UNKNOWN PACKET TYPE: " packet-id)
        ))
