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

Format

Browse source
This commit is contained in:
Akira Tempaku 2025-04-22 22:30:12 +09:00
parent 6736b3cd60
commit bb9e5fb6cd
Signed by: paku
GPG key ID: 5B4E8402BCC50607
1 changed files with 19 additions and 19 deletions

38
src/client.lisp
View file

@ -81,28 +81,28 @@
(update (symbolicate 'update- endpoint))
(delete (symbolicate 'delete- endpoint)))
`(list
(defun ,get-list (&key query)
(%request :get ,str-endpoint :query query))
(defun ,get-detail (id &key query)
(%request :get ,str-endpoint :path id :query query))
(defun ,create (content &key query)
(let ((id (getf content :id)))
(%request (if id :put :post)
,str-endpoint
:path id
:query query
:content (remove-from-plist content :id))))
(defun ,update (id content)
(%request :patch ,str-endpoint :path id :content content))
(defun ,delete (id)
(%request :delete ,str-endpoint :path id)))))
(defun ,get-list (&key query)
(%request :get ,str-endpoint :query query))
(defun ,get-detail (id &key query)
(%request :get ,str-endpoint :path id :query query))
(defun ,create (content &key query)
(let ((id (getf content :id)))
(%request (if id :put :post)
,str-endpoint
:path id
:query query
:content (remove-from-plist content :id))))
(defun ,update (id content)
(%request :patch ,str-endpoint :path id :content content))
(defun ,delete (id)
(%request :delete ,str-endpoint :path id)))))
(defmacro define-object-client (endpoint)
(let ((str-endpoint (string-downcase (string endpoint)))
(get (symbolicate 'get- endpoint))
(update (symbolicate 'update- endpoint)))
`(list
(defun ,get (&key query)
(%request :get ,str-endpoint :query query))
(defun ,update (content)
(%request :patch ,str-endpoint :content content)))))
(defun ,get (&key query)
(%request :get ,str-endpoint :query query))
(defun ,update (content)
(%request :patch ,str-endpoint :content content)))))