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

Flatten nested lets

Browse source
This commit is contained in:
Tommi Reiman 2017-08-09 10:36:11 +03:00
parent 32598f0e56
commit 33e3658a79
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
src/reitit/core.cljc
View file

@ -19,7 +19,7 @@
:cljs cljs.core.PersistentHashMap)
(expand [this] this)
#?(:clj clojure.lang.Fn
#?(:clj clojure.lang.Fn
:cljs function)
(expand [this] {:handler this})
@ -28,21 +28,21 @@
(defn walk [data {:keys [path meta routes expand]
:or {path "", meta [], routes [], expand expand}}]
(letfn
[(walk-many [p m r]
(reduce #(into %1 (walk-one p m %2)) [] r))
(walk-one [pacc macc routes]
(if (vector? (first routes))
(walk-many pacc macc routes)
(let [[path & [maybe-meta :as args]] routes]
(let [[meta childs] (if (vector? maybe-meta)
[{} args]
[maybe-meta (rest args)])
macc (into macc (expand meta))]
(if (seq childs)
(walk-many (str pacc path) macc childs)
[[(str pacc path) macc]])))))]
(walk-one path meta data)))
(letfn
[(walk-many [p m r]
(reduce #(into %1 (walk-one p m %2)) [] r))
(walk-one [pacc macc routes]
(if (vector? (first routes))
(walk-many pacc macc routes)
(let [[path & [maybe-meta :as args]] routes
[meta childs] (if (vector? maybe-meta)
[{} args]
[maybe-meta (rest args)])
macc (into macc (expand meta))]
(if (seq childs)
(walk-many (str pacc path) macc childs)
[[(str pacc path) macc]]))))]
(walk-one path meta data)))
(defn map-meta [f routes]
(mapv #(update % 1 f) routes))