luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix missing wrap-dynamic-nav in cljs

Browse source
This commit is contained in:
nathanmarz 2017-01-10 09:30:34 -05:00
parent f8d3ad5167
commit 39e8c758fc
1 changed files with 13 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/clj/com/rpl/specter.cljc
View file

@ -23,6 +23,19 @@
#?(:clj [com.rpl.specter.macros :as macros]) #?(:clj [com.rpl.specter.macros :as macros])
[clojure.set :as set])) [clojure.set :as set]))
(defn- static-path? [path]
(if (sequential? path)
(every? static-path? path)
(-> path i/dynamic-param? not)
))
(defn wrap-dynamic-nav [f]
(fn [& args]
(let [ret (apply f args)]
(if (and (sequential? ret) (static-path? ret))
(i/comp-paths* ret)
ret
))))
#?(:clj #?(:clj
(do (do
@ -114,20 +127,6 @@
attr)] attr)]
[(with-meta name attr) macro-args])) [(with-meta name attr) macro-args]))
(defn- static-path? [path]
(if (sequential? path)
(every? static-path? path)
(-> path i/dynamic-param? not)
))
(defn wrap-dynamic-nav [f]
(fn [& args]
(let [ret (apply f args)]
(if (and (sequential? ret) (static-path? ret))
(i/comp-paths* ret)
ret
))))
(defmacro dynamicnav [& args] (defmacro dynamicnav [& args]
`(vary-meta (wrap-dynamic-nav (fn ~@args)) assoc :dynamicnav true)) `(vary-meta (wrap-dynamic-nav (fn ~@args)) assoc :dynamicnav true))