Is there a way to convert lisp case to camel case? about jzon

[Zulu-Inuoe]

Sure.

Are you going CLOS->JSON, or JSON->CLOS?

Currently there's no built-in for JSON->CLOS, which is what #7 is about.

For CLOS->JSON, the options are in in the section custom serialization. specifically the section about specializing coerced-fields

You can either specialize that for each of your classes, or, if your classes all have a common parent class, you can do something like this:

(defclass foo ()
  ((a-field :initarg :a)
   (besides-this :initarg :b)
   (cant-hurt :initarg :c)))

;; The default method:
(jzon:coerced-fields (make-instance 'foo :a "hello" :b "world")) #| => ((A-FIELD "hello" T) (BESIDES-THIS "world" T)) |#

;; Our specialization
(defmethod jzon:coerced-fields ((obj foo))
  (let* (
         #| Call the base method which grabs all bound slots |#
         (fields (call-next-method))
         #| Alter them by replacing the name part (the `car') |#
         (fields (mapcar (lambda (f) (cons (cffi:translate-camelcase-name (car f)) (cdr f))) fields)))
    fields))

;; Now
(jzon:coerced-fields (make-instance 'foo :a "hello" :b "world")) #| => (("aField" "hello" T) ("besidesThis" "world" T)) |#

Any child class of foo will use this method, so you should get camel-case without having to write a method per class.
FYI here I used cffi:translate-camelcase-name just because it's the first thing that came to mind. You probably want to use something else

[Zulu-Inuoe]

An examples section sounds like a good idea, thank you

[daninus14]

Thank you so much! This is great! Yeah, CLOS to JSON.

I was about to close the issue, but I feel like it should be visible to people searching for the docs. Would you consider just adding a second coerced-fields example and simply copy pasting your explanation with the title Example: Changing Field Names From Hyphen Case to Camel Case?

Thank you again so much for the help!