From d248e03474c97d83cd788b38a17fd98ea54464d9 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sat, 26 Mar 2022 15:57:40 -0500
Subject: [refactor] making all arguments required

---
 lazybones-client.lisp | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/lazybones-client.lisp b/lazybones-client.lisp
index b17dacc..ccc6ccf 100644
--- a/lazybones-client.lisp
+++ b/lazybones-client.lisp
@@ -43,8 +43,7 @@ endpoint EP."
   "Returns a list of strings representing the names of route variables
 extracted from endpoint EP, to be used as variable names in the defun
 for making requests to that endpoint."
-  (mapcar 'symbol-name
-          (lazybones::endpoint-route-vars ep)))
+  (lazybones::endpoint-route-vars ep))
 
 (defun endpoint-defun-query-var-names (ep)
   "Returns a list of strings representing the names of query parameter
@@ -58,7 +57,7 @@ in the defun for making request to that endpoint."
 for making requests to endpoint EP."
   (format
    nil
-   "(%host% %headers% %cookies% ~:[~;%content-type% %body% ~]&key ~{~a ~})"
+   "(%host %headers %cookies ~:[~;%content-type %body ~] ~{~a ~})"
    (member (lazybones::endpoint-method ep) '(:post :put :patch))
    (append
     (endpoint-defun-route-var-names ep)
@@ -84,10 +83,9 @@ for making requests to endpoint EP."
       for first = t then nil
       for varname in (endpoint-defun-query-var-names ep)
       do 
-         (princ "~:[~;")
          (unless first (princ #\&))
          (princ (string-upcase varname))
-         (princ "=~a~]"))))
+         (princ "=~a"))))
 
 (defun endpoint-defun-dexador-request-uri (app ep)
   "Returns a string representation of code that generates a URI for
@@ -104,19 +102,24 @@ for making requests to endpoint EP."
    (endpoint-defun-dexador-uri-route-query-format-string ep)
    "\" "
    (str:join " " (endpoint-defun-route-var-names ep))
-   (str:join " " (endpoint-defun-query-var-names ep))))
+   " "
+   (str:join " " (endpoint-defun-query-var-names ep))
+   ")"))
 
 (defun endpoint-defun-body (app ep)
   "Returns a string representation of the function body of a defun
   for making requests to the endpoint EP in the app APP."
   (format
    nil
-   "(dexador:~a~%~a~%~{~a~%~})"
+   "(dexador:~a~%  ~a~%~{  ~a~%~})"
    (string-downcase (symbol-name (lazybones::endpoint-method ep)))
    (endpoint-defun-dexador-request-uri app ep)
-   '(":content %body%"
-     ":cookie-jar %cookies%"
-     ":headers (append (when %content-type% (list (cons \"Content-Type\" %content-type%))) %headers%)")))
+   (append 
+    (when (find (lazybones::endpoint-method ep) '(:patch :put :post))
+      (list ":content %body"))
+    (list 
+     ":cookie-jar %cookies"
+     ":headers (append (when %content-type (list (cons \"Content-Type\" %content-type))) %headers)"))))
 
 (defun generate-defun-for-endpoint (app ep)
   "Returns a string representation of a defun form for a function that
-- 
cgit v1.2.3