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 13651cbe1c
Signed by: paku
GPG key ID: 5B4E8402BCC50607
1 changed files with 4 additions and 1 deletions

5
src/client.lisp
View file

@ -62,7 +62,10 @@
(defun %camel-case-hash-table->kebab-case-plist (hash-table) (defun %camel-case-hash-table->kebab-case-plist (hash-table)
(loop :for (key . val) :in (hash-table-alist hash-table) (loop :for (key . val) :in (hash-table-alist hash-table)
:append (list (make-keyword (string-upcase (to-kebab-case key))) val))) :append (list (make-keyword (string-upcase (to-kebab-case key)))
(if (typep val 'hash-table)
(%camel-case-hash-table->kebab-case-plist val)
val))))
(defun %build-query (query) (defun %build-query (query)
(%kebab-case-plist->camel-case-alist query)) (%kebab-case-plist->camel-case-alist query))