thingthing.clj

(defn log-response [callback]
  (fn [response]
    (.log js/console response)
    (callback response)))

(get )

(defn kw-map [m]
  (zipmap (map keyword (keys m))
          (map (fn [v] (if (map? v)
                         (keywordize-map v)
                         v))
               (vals m))))

user> (kw-map {"a" 1})
{:a 1}
user> (kw-map {"a" 1 "b" {"b" "b"}})
{:b {:b "b"}, :a 1}