luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #87 from rakeshp/master

Browse source 
Added path to navigate to atom value
This commit is contained in:
Nathan Marz 2016-05-08 15:52:21 -04:00
commit 4a5f0b79b8
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/clj/com/rpl/specter.cljx
View file

@ -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."}
ATOM
[]
(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

5
test/com/rpl/specter/core_test.cljx
View file

@ -235,6 +235,11 @@
(is (= 5 (s/select-one (s/comp-paths :a :b) {:a {:b 5}}))) (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 (defspec view-test
(for-all+ (for-all+
[i gen/int [i gen/int