luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-01-02 06:38:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup code

Browse source
This commit is contained in:
Tommi Reiman 2017-08-07 14:23:16 +03:00
parent e6beae52f0
commit 3d4737b3fb
1 changed files with 12 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
src/reitit/core.cljc
View file

@ -38,18 +38,14 @@
([routes]
(walk ["" []] routes))
([[pacc macc] routes]
(let [subwalk (fn [path meta routes]
(reduce
(fn [acc route]
(into acc (walk [path meta] route)))
[]
routes))]
(letfn [(subwalk [p m r]
(reduce #(into %1 (walk [p m] %2)) [] r))]
(if (vector? (first routes))
(subwalk pacc macc routes)
(let [[path & [maybe-meta :as args]] routes]
(let [[meta childs] (if-not (vector? maybe-meta)
[maybe-meta (rest args)]
[{} args])
(let [[meta childs] (if (vector? maybe-meta)
[{} args]
[maybe-meta (rest args)])
macc (into macc (expand meta))]
(if (seq childs)
(subwalk (str pacc path) macc childs)
@ -58,16 +54,13 @@
(defn map-meta [f routes]
(mapv #(update % 1 f) routes))
(defn merge-meta
([x]
(merge-meta (constantly :into) x))
([key-strategy x]
(reduce
(fn [acc [k v]]
(let [strategy (or (key-strategy k) :replace)]
(deep-merge strategy acc {k v})))
{}
x)))
(defn merge-meta [key-strategy x]
(reduce
(fn [acc [k v]]
(let [strategy (or (key-strategy k) :replace)]
(deep-merge strategy acc {k v})))
{}
x))
(defn resolve-routes
([x]