com.vadelabs.toon.encode.normalize — com.vadelabs/toon 2025.12.07-10

Data normalization for TOON encoding.

Converts Clojure data structures to JSON-compatible values:

• Keywords → strings
• Symbols → strings
• Sets → vectors
• Maps with keyword keys → maps with string keys
• UUIDs → strings
• Dates/Instants → ISO-8601 strings
• NaN/Infinity → nil
• Functions/vars → nil
• Objects implementing ToJson protocol → custom serialization

array-of-arrays? clj/s

(array-of-arrays? value)

array-of-objects? clj/s

(array-of-objects? value)

array-of-primitives? clj/s

(array-of-primitives? value)

json-array? clj/s

(json-array? value)

json-object? clj/s

(json-object? value)

normalize-value clj/s

(normalize-value value)

(normalize-value value depth max-depth)

Normalizes a Clojure value to a JSON-compatible representation.

Normalization rules (in order of precedence):

• nil → nil
• ToJson protocol → calls -to-json and normalizes result
• Booleans → unchanged
• Strings → unchanged
• Numbers:
  • Finite → unchanged (with -0 → 0)
  • NaN, Infinity, -Infinity → nil
• Keywords → strings (e.g., :foo → "foo", :user/id → "user/id")
• Symbols → strings (e.g., 'foo → "foo")
• UUIDs → strings
• Dates/Instants → ISO-8601 strings
• BigInt/BigDecimal → number or string (if out of safe range)
• Sets → vectors (sorted for determinism)
• Maps → maps with string keys (recursively normalized values)
• Vectors/Lists → vectors (recursively normalized)
• Functions, vars, undefined → nil

Parameters:

• value: Any Clojure value
• depth: (optional) Current nesting depth (default: 0)
• max-depth: (optional) Maximum nesting depth (default: 1000)

Returns: JSON-compatible value (nil, boolean, number, string, vector, or map)

Throws: ex-info if max-depth is exceeded to prevent stack overflow

primitive? clj/s

(primitive? value)

ToJson clj/s protocol

Protocol for custom TOON/JSON serialization.

Objects implementing this protocol can control how they are serialized during TOON encoding. The -to-json method is called before any other type-specific normalization.

Example: (defrecord Person [first-name last-name] ToJson (-to-json [_] {:name (str first-name " " last-name)}))

(encode (->Person "Alice" "Smith")) ;; => "name: Alice Smith"

-to-json clj/s

(-to-json this)

Returns the JSON-compatible representation of this value.