get cljs compiling

This commit is contained in:
Nathan Marz 2016-08-04 16:32:54 -04:00
parent 4460ee313e
commit 4005aca92e
4 changed files with 27 additions and 12 deletions

View file

@ -26,7 +26,8 @@
defnavconstructor]] defnavconstructor]]
#+clj [com.rpl.specter.util-macros :only [doseqres]] #+clj [com.rpl.specter.util-macros :only [doseqres]]
) )
(:require [com.rpl.specter [impl :as i] [navs :as n]] (:require [com.rpl.specter.impl :as i]
[com.rpl.specter.navs :as n]
[clojure.set :as set]) [clojure.set :as set])
) )

View file

@ -142,8 +142,8 @@
)) ))
#+cljs #+cljs
(defn exec-select* [this params params-idx vals structure next-fn] (defn exec-select* [this structure next-fn]
(p/select* this params params-idx vals structure next-fn)) (p/select* this structure next-fn))
#+clj #+clj
(defmacro exec-transform* [this & args] (defmacro exec-transform* [this & args]
@ -152,9 +152,8 @@
)) ))
#+cljs #+cljs
(defn exec-transform* [this params params-idx vals structure next-fn] (defn exec-transform* [this structure next-fn]
(p/transform* this params params-idx vals structure next-fn)) (p/transform* this structure next-fn))
(def RichPathExecutor (def RichPathExecutor
(->ExecutorFunctions (->ExecutorFunctions
@ -407,7 +406,7 @@
(map capture-params-internally)) (map capture-params-internally))
combined (->> coerced combined (->> coerced
(map extract-nav) (map extract-nav)
(partition-by class) (partition-by type)
(map combine-same-types) (map combine-same-types)
) )
result-nav (if (= 1 (count combined)) result-nav (if (= 1 (count combined))

View file

@ -1,8 +1,23 @@
(ns com.rpl.specter.navs (ns com.rpl.specter.navs
(:use [com.rpl.specter macros] #+cljs (:require-macros
[com.rpl.specter.util-macros :only [doseqres]]) [com.rpl.specter.macros
(:require [com.rpl.specter [impl :as i]] :refer
[clojure [walk :as walk]] [pathed-collector
variable-pathed-nav
fixed-pathed-nav
defcollector
defnav
defpathedfn
richnav
defnavconstructor
]]
[com.rpl.specter.util-macros :refer
[doseqres]]
)
(:use #+clj [com.rpl.specter macros]
#+clj [com.rpl.specter.util-macros :only [doseqres]])
(:require [com.rpl.specter.impl :as i]
[clojure.walk :as walk]
#+clj [clojure.core.reducers :as r] #+clj [clojure.core.reducers :as r]
) )
) )

View file

@ -8,7 +8,7 @@
[com.rpl.specter.macros :only [com.rpl.specter.macros :only
[defnav [defnav
defpathedfn]]) defpathedfn]])
(:require [com.rpl.specter [navs :as n]] (:require [com.rpl.specter.navs :as n]
[com.rpl.specter :refer [subselect selected?]])) [com.rpl.specter :refer [subselect selected?]]))
(defnav (defnav