gistfile1.clj

(def data [{:id "foo" :name "Foo" :auth_token "f1"}
           {:id "bar" :name "Bar" :auth_token "b1"}
           {:id "zip" :name "Zip" :auth_token "z1"}])
(defn prepare-accounts
  "Removes the account that has the :id value of the provided param, and
  also removes the key-value pair :auth_token from all accounts"
  [accounts unwanted-id]
  (->> accounts
       (map #(dissoc % :auth_token))
       (remove #(= unwanted-id (:id %)))))

(prepare-accounts data "bar")
;; Expected: ({:name "Foo", :id "foo"} {:name "Zip", :id "zip"})

(for [d data :when (not= unwanted-id (:id d)] (dissoc d :auth_token))