schema.clj

Bowmap · bowmap.git · Tickets

Branches > main > bda794d > files / src / net / bowmap / server / protocol / schema.clj

(ns net.bowmap.server.protocol.schema
  (:require
   [clojure.spec.alpha :as s]
   [net.bowmap.server.protocol.identifier :refer [identifier?]]
   [net.bowmap.server.protocol.nbt :as nbt]))

(s/def ::identifier identifier?)

(s/def ::registry-id ::identifier)
(s/def ::registry-entries (s/coll-of ::registry-entry :kind sequential?))
(s/def ::registry-entry (s/map-of ::registry-entry-id ::registry-data))
(s/def ::registry-entry-id ::identifier)
(s/def ::registry-data ::nbt/nbt)