Merge pull request #87 from rakeshp/master

Added path to navigate to atom value

src/clj/com/rpl/specter.cljx

@@ -279,6 +279,17 @@
     (assoc structure key (next-fn (get structure key)))
     ))
 
+(defpath
+  ^{:doc "Navigates to atom value."}
+  ATOM
+  []
+  (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

test/com/rpl/specter/core_test.cljx

@@ -235,6 +235,11 @@
   (is (= 5 (s/select-one (s/comp-paths :a :b) {:a {:b 5}})))
   )
 
+(deftest atom-test
+  (let [v (s/transform s/ATOM inc (atom 1))]
+    (is (instance? clojure.lang.Atom v))
+    (is (= 2 (s/select-one s/ATOM v) @v))))
+
 (defspec view-test
   (for-all+
     [i gen/int