Flat-Map, for multi-path atomic updates in Firebase

flat_map.cljs

(defn flat-map
  ([m] (clj->js (apply hash-map (flat-map "" m))))
  ([path m]
   (mapcat (fn [[k v]] (if (map? v)
                         ((partial flat-map (str path "/" (name k))) v)
                         [(str path "/" (name k)) v])) m)))
                       
(= (flat-map {:users {"x0x0x0" {:name "Matt" 
                                :email "[email protected]"}}})
   {"users/x0x0x0/name" "Matt" 
    "users/x0x0x0/email" "[email protected]"})