summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-03-26 16:27:50 -0500
committerColin Okay <okay@toyful.space>2022-03-26 16:27:50 -0500
commit4d525307ec2b50e427c2c5d56268342ed2b0396c (patch)
treec82a3a139495cf2a5146cd00e14b877d29011303
parent97c0ad9e99d4d56e8ee15cd2ef83ecd7dd82ebf8 (diff)
[redesign] renamed generated functions to look like URIs
-rw-r--r--lazybones-client.lisp8
1 files changed, 4 insertions, 4 deletions
diff --git a/lazybones-client.lisp b/lazybones-client.lisp
index 65baed4..dbf6a01 100644
--- a/lazybones-client.lisp
+++ b/lazybones-client.lisp
@@ -30,14 +30,14 @@
endpoint EP."
(with-output-to-string (*standard-output*)
(princ (string-downcase (symbol-name (lazybones::endpoint-method ep))))
- (princ "/")
+ (princ "-")
(loop for (term . more) on (lazybones::endpoint-dispatch-pattern ep)
when (and (stringp term) (plusp (length term)))
- do (princ term)
+ do (princ (string-downcase term))
when (listp term)
- do (princ (car term))
+ do (princ (string-downcase (car term)))
when (and more (plusp (length term)))
- do (princ "-"))))
+ do (princ "/"))))
(defun endpoint-defun-route-var-names (ep)
"Returns a list of strings representing the names of route variables