From c48361bb23ec21c672096104d6885c87f5ecbef6 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 11 May 2024 13:10:04 -0700
Subject: Update: README. Add: print-all-route-documentation

---
 src/endpoint.lisp | 4 ++++
 src/package.lisp  | 7 +++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/endpoint.lisp b/src/endpoint.lisp
index 9064c9f..4f44a41 100644
--- a/src/endpoint.lisp
+++ b/src/endpoint.lisp
@@ -141,6 +141,10 @@ endpoints are dispatching on which routes and methods.")
         (terpri)
         (princ doc)))))
 
+(defun print-all-route-documentation (&key (stream *standard-output*))
+  (loop :for class :being :the :hash-keys :of *endpoint-registry*
+        :do (print-route-documentation class :stream stream)
+            (terpri stream)))
 
 ;;; BODY PARSER REGISTRATION
 
diff --git a/src/package.lisp b/src/package.lisp
index e8f56b3..bb74e5f 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -29,8 +29,11 @@
    #:handle-static-file
    #:set-cookie
 
-
    ;; METACLASS
    #:endpoint
-   #:register-body-parser))
+   #:register-body-parser
+
+   ;; DOCGEN
+   #:print-route-documentation
+   #:print-all-route-documentation))
 
-- 
cgit v1.2.3