Skip to content

Instantly share code, notes, and snippets.

@niwinz

niwinz/clj->js.clj

Forked from semperos/clj->js.clj
Created February 26, 2014 22:58
Show Gist options
  • Save niwinz/9240607 to your computer and use it in GitHub Desktop.
Save niwinz/9240607 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
clj->js.clj
(defn clj->js
"Recursively transforms ClojureScript maps into Javascript objects,
other ClojureScript colls into JavaScript arrays, and ClojureScript
keywords into JavaScript strings."
[x]
(cond
(string? x) x
(keyword? x) (name x)
(map? x) (.strobj (reduce (fn [m [k v]]
(assoc m (clj->js k) (clj->js v))) {} x))
(coll? x) (apply array (map clj->js x))
:else x))
Raw
clj-js.clj
(defn clj->js
"Recursively transforms ClojureScript maps into Javascript objects,
other ClojureScript colls into JavaScript arrays, and ClojureScript
keywords into JavaScript strings."
[x]
(cond
(string? x) x
(keyword? x) (name x)
(map? x) (.-strobj (reduce (fn [m [k v]]
(assoc m (clj->js k) (clj->js v))) {} x))
(coll? x) (apply array (map clj->js x))
:else x))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment