(defn clj-ns->cljs-ns
"Given a symbol that starts with clojure as the first segment return the
same symbol with the first segment replaced with cljs"
[sym]
(let [segs (string/split (clojure.core/name sym) #"\.")]
(if (= "clojure" (first segs))
(symbol (string/join "." (cons "cljs" (next segs))))
sym)))