luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-24 02:48:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add :path & :method to Endpoints

Browse source
This commit is contained in:
Tommi Reiman 2017-12-26 22:40:53 +02:00
parent 06cb1301cd
commit 0dbb75ad44
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
modules/reitit-ring/src/reitit/ring.cljc
View file

@ -6,6 +6,7 @@
(def http-methods #{:get :head :patch :delete :options :post :put})
(defrecord Methods [get head post put delete trace options connect patch any])
(defrecord Endpoint [data handler path method middleware])
(defn- group-keys [data]
(reduce-kv
@ -58,14 +59,19 @@
acc)) data http-methods)])
(defn compile-result [[path data] opts]
(let [[top childs] (group-keys data)]
(let [[top childs] (group-keys data)
->endpoint (fn [p d m s]
(-> (middleware/compile-result [p d] opts s)
(map->Endpoint)
(assoc :path p)
(assoc :method m)))]
(if-not (seq childs)
(map->Methods {:any (middleware/compile-result [path top] opts)})
(map->Methods {:any (->endpoint path top :any nil)})
(reduce-kv
(fn [acc method data]
(let [data (meta-merge top data)]
(assoc acc method (middleware/compile-result [path data] opts method))))
(map->Methods {:any (if (:handler top) (middleware/compile-result [path data] opts))})
(assoc acc method (->endpoint path data method method))))
(map->Methods {:any (if (:handler top) (->endpoint path data :any nil))})
childs))))
(defn router