Clojurians Log v2

Hey team, noob question (not quite sure how to search for above) I want to do the following:

(def xs [{:name "foo" :x 1}]
(def to-add-a {:name "foo" :x nil})
(def to-add-b {:name "bar" :x nil})

xs + to-add-a => [{:name "foo" :x 1}]

xs + to add-b => [{:name "foo"  :x 1} {:name "bar" :x nil}]

@stopachka this would be one way to do it:

(defn add-record [all record]
  (setval [(not-selected? ALL :name (pred= (:name record)))
           AFTER-ELEM]
           record
           all))

niice. Thanks @nathanmarz!

Okay, one more: Say I have

(def name->objects {"foo": [{:name "foo" :x 1]})
(def to-add-a {:name "foo" :x nil})
(def to-add-b {:name "bar" :x nil})

name->objects + to-add-a => {"foo" [{:name "foo" :x 1] {:name "foo" :x nil}]}

name->objects + to-add-b => {"foo" [{:name "foo" :x 1}] "bar" {:name "bar" :x nil}}

(s/setval
 [(:name object) s/AFTER-ELEM]
 object
 name->objects
 )