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

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


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

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