Add biview path.
This commit is contained in:
parent
585637b4fe
commit
c34e900427
2 changed files with 8 additions and 1 deletions
2
VERSION
2
VERSION
|
|
@ -1 +1 @@
|
||||||
0.9.3
|
0.9.4-SNAPSHOT
|
||||||
|
|
|
||||||
|
|
@ -270,6 +270,13 @@
|
||||||
(next-fn (afn structure))
|
(next-fn (afn structure))
|
||||||
))
|
))
|
||||||
|
|
||||||
|
(defpath biview [afn bfn]
|
||||||
|
(select* [this structure next-fn]
|
||||||
|
(next-fn (afn structure)))
|
||||||
|
(transform* [this structure next-fn]
|
||||||
|
(bfn (next-fn (afn structure)))
|
||||||
|
))
|
||||||
|
|
||||||
(defn selected?
|
(defn selected?
|
||||||
"Filters the current value based on whether a selector finds anything.
|
"Filters the current value based on whether a selector finds anything.
|
||||||
e.g. (selected? :vals ALL even?) keeps the current element only if an
|
e.g. (selected? :vals ALL even?) keeps the current element only if an
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue