diff options
Diffstat (limited to 'lazybones-documentation.lisp')
-rw-r--r-- | lazybones-documentation.lisp | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lazybones-documentation.lisp b/lazybones-documentation.lisp index 30ba6b6..48e55b2 100644 --- a/lazybones-documentation.lisp +++ b/lazybones-documentation.lisp @@ -14,7 +14,8 @@ endpoints (default-authorizer authorizer) default-content-type - description) + description + definitions) app (with-output-to-string (*standard-output*) (princ "# ") (princ title) (princ " - ") (princ "v") (princ version) @@ -55,7 +56,18 @@ (princ ": ") (princ (strip-newlines (documentation parser 'function))) (princ #\newline))) newline - (princ endpoint-documentation) )))))) + (princ endpoint-documentation))) + newline + (when (plusp (hash-table-count definitions)) + (princ "## Definitions") newline + (loop for name being the hash-key of definitions + for (node-id . text) being the hash-value of definitions + do (format *standard-output* + "<h3 id='~a'>~a</h3>" + node-id name) + (princ #\newline) (princ #\newline) + (princ text) + (princ #\newline) (princ #\newline))))))) (defun ensure-blockquote (string) (concatenate 'string "> " |