Add biview path.

This commit is contained in:
Thomas Athorne 2016-04-16 17:16:23 +01:00
parent 585637b4fe
commit c34e900427
2 changed files with 8 additions and 1 deletions

View file

@ -1 +1 @@
0.9.3
0.9.4-SNAPSHOT

View file

@ -270,6 +270,13 @@
(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?
"Filters the current value based on whether a selector finds anything.
e.g. (selected? :vals ALL even?) keeps the current element only if an