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

more name refactoring

Browse source
This commit is contained in:
Nathan Marz 2015-09-10 00:04:57 -04:00
parent d1a5b66c71
commit d693ad29ae
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/com/rpl/specter/impl.cljc
View file

@ -35,9 +35,9 @@
(deftype ExecutorFunctions [type select-executor transform-executor])
(def StructureValsPathExecutor
(def RichPathExecutor
(->ExecutorFunctions
:svalspath
:richpath
(fn [selector structure]
(selector [] structure
(fn [vals structure]
@ -122,7 +122,7 @@
afn (fn [vals structure next-fn]
(next-fn (conj vals (cfn this structure)) structure)
)]
(->TransformFunctions StructureValsPathExecutor afn afn)))
(->TransformFunctions RichPathExecutor afn afn)))
(defn coerce-structure-path [this]
@ -142,7 +142,7 @@
selector (:select* pimpl)
transformer (:transform* pimpl)]
(->TransformFunctions
StructureValsPathExecutor
RichPathExecutor
(fn [vals structure next-fn]
(selector this structure (fn [structure] (next-fn vals structure))))
(fn [vals structure next-fn]
@ -199,7 +199,7 @@
t (.-type exs)
combiner
(if (= t :svalspath)
(if (= t :richpath)
(fn [curr next]
(fn [vals structure next-fn]
(curr vals structure
@ -220,12 +220,12 @@
all))))
(defn coerce-structure-vals [^TransformFunctions tfns]
(if (= (extype tfns) :svalspath)
(if (= (extype tfns) :richpath)
tfns
(let [selector (.-selector tfns)
transformer (.-transformer tfns)]
(->TransformFunctions
StructureValsPathExecutor
RichPathExecutor
(fn [vals structure next-fn]
(selector structure (fn [structure] (next-fn vals structure))))
(fn [vals structure next-fn]