Juniper provides a couple of macros that generates code for interacting with web APIs based on a Swagger/OpenAPI schema; it is designed to allow Common Lisp to seamlessly interact with web services over HTTP just as if they were local Lisp packages. Currently, only Swagger 2.0 schemas are supported.
Clone the repository to somewhere ASDF can find, then
(asdf:load-system :juniper)Do note that the generated code will still have runtime dependencies on drakma, puri (which is also a dependency of drakma), cl-ppcre and cl-json, as well as juniper itself.
Juniper is not yet installable with quicklisp.
The following example generates bindings for the "https://petstore.swagger.io/v2/swagger.json" schema and makes a couple of requests to the remote server:
> (juniper:bindings-from-url "https://petstore.swagger.io/v2/swagger.json")
CREATE-USER
> (get-inventory)
((:ARTHUR . 1) (:SOLD . 2) (:ATIVO . 1) (:STRING . 322) (:AVAILABLE . 655))
> (get-user-by-name "User1")
((:ID . 9013685127327378666) (:USERNAME . "User1") (:FIRST-NAME . "User1FN")
(:LAST-NAME . "USER1LN") (:EMAIL . "user1@test1.com") (:PASSWORD . "123456")
(:PHONE . "0852538578") (:USER-STATUS . 0))
> (let ((juniper:*drakma-extra-args* '(:user-agent :firefox)))
(login-user "sekuritz@!47" "tevo"))
((:CODE . 200) (:TYPE . "unknown")
(:MESSAGE . "logged in user session:1613522477592"))
> (add-pet '((:id . 0) (:category . ((:id . 0) (:name . "cat"))) (:name . "katyusha") (:photo-urls . nil) (:tags . nil) (:status . "deceased")))
((:ID . 9222968140497309189) (:CATEGORY (:ID . 0) (:NAME . "cat"))
(:NAME . "katyusha") (:STATUS . "deceased"))