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)))
|
||||
))
|
||||
|
||||
(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
|
||||
^{:doc "Navigates to the key only if it exists in the map."}
|
||||
must
|
||||
|
|
|
|||
Loading…
Reference in a new issue