diff options
Diffstat (limited to 'lazybones-documentation.lisp')
| -rw-r--r-- | lazybones-documentation.lisp | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lazybones-documentation.lisp b/lazybones-documentation.lisp index b64ec63..6527f41 100644 --- a/lazybones-documentation.lisp +++ b/lazybones-documentation.lisp @@ -23,7 +23,7 @@ newline (princ "## Endpoints") (dolist (ep (sorted-endpoints endpoints)) - (with-slots (method content-type route authorizer endpoint-documentation) ep + (with-slots (method content-type route authorizer params endpoint-documentation) ep newline (princ "### ") (princ method) (princ " ") (princ (make-route-presentable route)) (terpri) @@ -36,9 +36,16 @@ (dolist (var vars) (princ "- ") (princ var) (a:when-let (val-parser (route-var-value-parser ep var)) - (princ ": ") (princ (strip-newlines (documentation val-parser 'function))))) - newline) - + (princ ": ") (princ (strip-newlines (documentation val-parser 'function)))) + (princ #\newline))) + (when params + newline + (princ "Documented Query Parameters: ") newline + (loop for (var parser) in params + do (princ "- ") (princ (string-downcase (symbol-name var))) + (princ ": ") (princ (strip-newlines (documentation parser 'function))) + (princ #\newline))) + (when authorizer (princ "Authorization Required: ") newline @@ -47,7 +54,7 @@ ((function-or-function-name-p default-authorizer) (princ (ensure-blockquote (documentation default-authorizer 'function))))) newline) - + newline (princ endpoint-documentation) )))))) (defun ensure-blockquote (string) |