gistfile1.clj

(defn import!
  [resources account-id]
  (map
   (fn [resource]
     (if-let [doc (mc/find-by-id "resources" (:URI resource))]
       (mc/update-by-id "resources" (:URI resource)
                        (if-let
                            [account (get-in doc ["accounts" account-id])]
                          {$inc {(str "accounts" "." account-id) 1}}
                          {$set {(str "accounts" "." account-id) 1}}))
       (mc/insert "resources"
                  (merge resource {:_id (:URI resource)
                                   :accounts (assoc {} account-id 1)}))))
   resources))