registry.clj

Branches > client-handling-rewrite > 1e827df > files / src / net / bowmap / network / message / registry.clj

(ns net.bowmap.network.message.registry
  (:require
   [net.bowmap.network.message :as msg]
   [net.bowmap.network.message.client :as client]
   [net.bowmap.network.registry :as reg]))

(def registry-messages
  (for [[id m] (partition 2 reg/registries)]
    {::msg/id ::client/registry-data
     ::reg/id id
     ::reg/entries (for [[entry-id data] m]
                {::reg/entry-id entry-id
                 ::reg/entry-data data})}))