Re: merge nested maps

The implementation(s) acts a bit counter-intuitive on non-nested maps: FAIL in (deep-merge-test) (test.clj:5) expected: (= (merge {:a 1, :d 1} {:a 2, :c 1}) (deep-merge {:a 1, :d 1} {:a 2, :c 1})) actual: (not (= {:c 1, :a 2, :d 1} {:a 2, :c 1})) ERROR in (deep-merge-with-test) (Numbers.java:9

Re: merge nested maps

By the way, this is already in contrib: http://clojuredocs.org/clojure_contrib/clojure.contrib.map-utils/deep-merge-with On Wednesday, July 17, 2013 5:42:24 AM UTC-7, Chris Gill wrote: > > Thank you for finding and posting this! Been wracking my brain trying to > figure out a good way to do a fu

Re: merge nested maps

Thank you for finding and posting this! Been wracking my brain trying to figure out a good way to do a full map merge On Thursday, April 25, 2013 5:26:53 PM UTC-4, Stuart Sierra wrote: > > Here's a way to do it from the Pedestal demo source > code

Re: merge nested maps

Yes. On Sun, Apr 28, 2013 at 4:55 AM, Gary Verhaegen wrote: > Shouldn't that docstring read "If vals are not maps" ? > > On 25 April 2013 23:26, Stuart Sierra wrote: > > Here's a way to do it from the Pedestal demo source code: > > > > (defn deep-merge > > "Recursively merges maps. If keys ar

Re: merge nested maps

Shouldn't that docstring read "If vals are not maps" ? On 25 April 2013 23:26, Stuart Sierra wrote: > Here's a way to do it from the Pedestal demo source code: > > (defn deep-merge > "Recursively merges maps. If keys are not maps, the last value wins." > [& vals] > (if (every? map? vals) >

Re: merge nested maps

Here's a way to do it from the Pedestal demo source code : (defn deep-merge "Recursively merges maps. If keys are not maps, the last value wins." [& vals] (if (every?

Re: merge nested maps

It was fun to try a naive implementation (defn combine [m1 m2] (let [mm1 (transient m1)] (do (doseq [k (keys m2)] (if (contains? m1 k) (assoc! mm1 k (conj (mm1 k) (m2 k))) (assoc! mm1 k (m2 k (persistent! mm1 On 25/04/13 16:29, Cedric Greev

Re: merge nested maps

Seems you want a cross between update-in and merge. Maybe something like this? (defn combine "Merge maps, recursively merging nested maps whose keys collide." ([] {}) ([m] m) ([m1 m2] (reduce (fn [m1 [k2 v2]] (if-let [v1 (get m1 k2)] (if (and (map? v1) (ma

Re: merge nested maps

On Apr 25, 2013, at 15:41 , Joachim De Beule wrote: > I was searching for an "easy" way to combined nested maps, e.g. as in > > (combine {:foo {:bar "baz"}} {:foo {:x "y"}}) > => {:foo {:bar "baz", :x "y"}} user=> (merge-with merge {:foo {:bar "baz"}} {:foo {:x "y"}}) {:foo {:x "y", :bar "baz"

merge nested maps

Hi list, I was searching for an "easy" way to combined nested maps, e.g. as in (combine {:foo {:bar "baz"}} {:foo {:x "y"}}) => {:foo {:bar "baz", :x "y"}} I would expect that there is some core map operation to do this, but neither merge nor unify work as they simply return {:foo {:x "y"}}, a