Added path to navigate to atom value
This commit is contained in:
parent
03f6a12baa
commit
7b33c93132
1 changed files with 11 additions and 0 deletions
|
|
@ -279,6 +279,17 @@
|
||||||
(assoc structure key (next-fn (get structure key)))
|
(assoc structure key (next-fn (get structure key)))
|
||||||
))
|
))
|
||||||
|
|
||||||
|
(defpath
|
||||||
|
^{:doc "Navigates to atom value."}
|
||||||
|
atompath
|
||||||
|
[]
|
||||||
|
(select* [this structure next-fn]
|
||||||
|
(next-fn @structure))
|
||||||
|
(transform* [this structure next-fn]
|
||||||
|
(do
|
||||||
|
(reset! structure (next-fn @structure))
|
||||||
|
structure)))
|
||||||
|
|
||||||
(defpath
|
(defpath
|
||||||
^{:doc "Navigates to the key only if it exists in the map."}
|
^{:doc "Navigates to the key only if it exists in the map."}
|
||||||
must
|
must
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue