diff options
Diffstat (limited to 'lazybones-documentation.lisp')
-rw-r--r-- | lazybones-documentation.lisp | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/lazybones-documentation.lisp b/lazybones-documentation.lisp index 5aedaba..30ba6b6 100644 --- a/lazybones-documentation.lisp +++ b/lazybones-documentation.lisp @@ -30,8 +30,17 @@ (princ "*") (princ (if content-type content-type default-content-type )) (princ "*") - newline + (when authorizer + newline + (princ "Authorization Required: ") + newline + (cond ((function-or-function-name-p authorizer) + (princ (ensure-blockquote (documentation authorizer 'function)))) + ((function-or-function-name-p default-authorizer) + (princ (ensure-blockquote (documentation default-authorizer 'function))))) + newline) (a:when-let (vars (endpoint-route-vars ep)) + newline (princ "Route Variables: ") newline (dolist (var vars) (princ "- ") (princ var) @@ -45,16 +54,6 @@ do (princ "- ") (princ (string-downcase (symbol-name var))) (princ ": ") (princ (strip-newlines (documentation parser 'function))) (princ #\newline))) - - (when authorizer - newline - (princ "Authorization Required: ") - newline - (cond ((function-or-function-name-p authorizer) - (princ (ensure-blockquote (documentation authorizer 'function)))) - ((function-or-function-name-p default-authorizer) - (princ (ensure-blockquote (documentation default-authorizer 'function))))) - newline) newline (princ endpoint-documentation) )))))) |