diff options
Diffstat (limited to 'lazybones-documentation.lisp')
-rw-r--r-- | lazybones-documentation.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lazybones-documentation.lisp b/lazybones-documentation.lisp index c7cd591..b64ec63 100644 --- a/lazybones-documentation.lisp +++ b/lazybones-documentation.lisp @@ -25,7 +25,7 @@ (dolist (ep (sorted-endpoints endpoints)) (with-slots (method content-type route authorizer endpoint-documentation) ep newline - (princ "### ") (princ method) (princ " ") (princ route) + (princ "### ") (princ method) (princ " ") (princ (make-route-presentable route)) (terpri) (princ "*") (princ (if content-type content-type default-content-type )) @@ -71,3 +71,6 @@ (defun route-var-value-parser (ep var) (second (assoc var (remove-if-not #'consp (endpoint-dispatch-pattern ep))))) + +(defun make-route-presentable (routestring) + (ppcre:regex-replace-all " [a-z0-9A-Z\-]+:" routestring ":")) |