(defrecord Item [id name description])

(def items
  (ref [
    (->Item "1" "Cookies" "Good tasting!")
    (->Item "2" "Blueberries" "Healthy!")

  ])
)

(dosync (commute items ???? ))

(commute items #(remove (fn [x](= (:id x) id)) %))

(nth (filtered (filter #(= (:id %) id) @items)) 0)

(dosync
 (commute items
          #(mapv (fn [i]
                   (if (= (:id i) "1")
                     (assoc i :name "foo")
                     i))
                 %)))