     :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 -----------------------------------------------------------------

  (-write-byte conn itemcount)
  (-write-short conn itemuses))

(defn write-packet-transaction [conn {windowid :windowid actionnumber :actionnumber accepted :accepted}]
  (-write-byte conn (:transaction packet-ids))

  (-write-byte conn windowid)
  (-write-short conn actionnumber)
  (-write-bool conn accepted))


; Writing Wrappers -----------------------------------------------------------------
(defn flushc [conn]
