Endpoint with middleware

- Debug entry for handler listing all routes
danielsz · Sep 18, 2023 · 5d91d44 · 5d91d44
1 parent e61487e
commit 5d91d44
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 8 deletions.
diff --git a/meyvn.edn b/meyvn.edn
@@ -1,6 +1,6 @@
 {:pom {:group-id "org.danielsz",
        :artifact-id "system",
-       :version "0.5.0",
+       :version "0.5.1-SNAPSHOT",
        :name "system"},
  :build-properties {:project-build-sourceEncoding "UTF-8"},
  :packaging {:uberjar {:graalvm {:enabled false,

diff --git a/src/system/components/endpoint.clj b/src/system/components/endpoint.clj
@@ -6,11 +6,18 @@
 (defrecord Endpoint [routes middleware]
   component/Lifecycle
   (start [component]
-    (assoc component :routes (cond
-                               (vector? routes) (if (not-empty middleware)
-                                                        (ring/router routes {:reitit.middleware/transform #(into % middleware)})
-                                                        (ring/router routes))
-                               (and (ifn? routes) (satisfies? Router (routes component))) (routes component))))
+    (let [transform (fn [routes] (mapv
+                                 (fn [entry]
+                                   (if (associative? entry)
+                                     (let [[k v] entry]
+                                       [k (assoc v :middleware middleware)])
+                                     entry))
+                                 routes))]
+      (assoc component :routes (cond
+                                 (vector? routes) (if (not-empty middleware)
+                                                    (ring/router (transform routes))
+                                                    (ring/router routes))
+                                 (and (ifn? routes) (satisfies? Router (routes component))) (routes component)))))
   (stop [component]
     (dissoc component :routes)))
 

diff --git a/src/system/components/handler.clj b/src/system/components/handler.clj
@@ -20,9 +20,9 @@
     (let [routes (map :routes (vals (endpoints component)))
           routers (apply merge-routers routes)
           handler (ring/ring-handler routers (default-handler component) options)]
-      (assoc component :handler handler)))
+      (assoc component :handler handler :debug (r/routes routers))))
   (stop [component]
-    (dissoc component :handler)))
+    (dissoc component :handler :debug)))
 
 (defn new-handler
   [& {:keys [default-handler options]}]