Snake-casing encoded keys for “object-like” schemas

const NewSchema = Schema.Struct({
  protertyA: Schema.String,
  propertyB: Schema.Number,
  propertyC: Schema.Array(Schema.Struct({ propertyCA: Schema.String }))
}).pipe(withSnakeCaseKeys);

const NewSchema = Schema.Struct({
  protertyA: Schema.propertySignature(Schema.String).pipe(Schema.fromKey("property_a")),
  propertyB: Schema.propertySignature(Schema.Number).pipe(Schema.fromKey("property_b")),
  propertyC: Schema.Array({
    propertyCA: Schema.propertySignature(Schema.String).pipe(Schema.fromKey("property_c_a"))
  }),
});

const withSnakeCaseKeysPseudo = (self) => {
  if (isArray(self)) {
    return Schema.Array(
      self.elements.map((element) =>
        isArray(element) || isStruct(element) || isUnion(element)
          ? withSnakeCaseKeys(element)
          : element,
      ),
    );
  }

  if (isStruct(self)) {
    return Schema.Struct(
      Object.fromEntries(
        Object.entries(self).map(([key, value]) => [
          key,
          isArray(value) || isStruct(value) || isUnion(value)
            ? withSnakeCaseKeys(value)
            : Schema.propertySignature(value).pipe(Schema.fromKey(snakeCase(key))),
        ]),
      ),
    );
  }

  if (isUnion(self)) {
    return Schema.Union(
      ...self.parts.map((part) =>
        isArray(part) || isStruct(part) || isUnion(part)
          ? withSnakeCaseKeys(part)
          : part,
      ),
    );
  }
  return self;
};