paku/microcms-lisp-sdk
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Apply parse recursively

Browse source
This commit is contained in:
Akira Tempaku 2025-04-28 23:03:44 +09:00
parent bb9e5fb6cd
commit bdedc0f811
Signed by: paku
GPG key ID: 5B4E8402BCC50607
1 changed files with 9 additions and 4 deletions

13
src/client.lisp
View file

@ -60,9 +60,14 @@
(loop :for (key val) :on plist :by #'cddr (loop :for (key val) :on plist :by #'cddr
:collect (cons (to-camel-case (symbol-name key)) val))) :collect (cons (to-camel-case (symbol-name key)) val)))
(defun %camel-case-hash-table->kebab-case-plist (hash-table) (defun %jzon-object->kebab-case-plist (obj)
(loop :for (key . val) :in (hash-table-alist hash-table) (typecase obj
:append (list (make-keyword (string-upcase (to-kebab-case key))) val))) (simple-vector (mapcar #'%jzon-object->kebab-case-plist
(coerce obj 'list)))
(hash-table (loop :for (key . val) :in (hash-table-alist obj)
:append (list (make-keyword (string-upcase (to-kebab-case key)))
(%jzon-object->kebab-case-plist val))))
(t obj)))
(defun %build-query (query) (defun %build-query (query)
(%kebab-case-plist->camel-case-alist query)) (%kebab-case-plist->camel-case-alist query))
@ -71,7 +76,7 @@
(and content (stringify (alist-hash-table (%kebab-case-plist->camel-case-alist content))))) (and content (stringify (alist-hash-table (%kebab-case-plist->camel-case-alist content)))))
(defun %parse-response (body) (defun %parse-response (body)
(%camel-case-hash-table->kebab-case-plist (parse body))) (%jzon-object->kebab-case-plist (parse body)))
(defmacro define-list-client (endpoint) (defmacro define-list-client (endpoint)
(let ((str-endpoint (string-downcase (string endpoint))) (let ((str-endpoint (string-downcase (string endpoint)))