From 7b33c93132b38ea2ca24da572f8c33e5499fd940 Mon Sep 17 00:00:00 2001 From: Rakesh Date: Sat, 7 May 2016 22:40:21 +0530 Subject: [PATCH] Added path to navigate to atom value --- src/clj/com/rpl/specter.cljx | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/clj/com/rpl/specter.cljx b/src/clj/com/rpl/specter.cljx index 8a3499e..210356a 100644 --- a/src/clj/com/rpl/specter.cljx +++ b/src/clj/com/rpl/specter.cljx @@ -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