gistfile1.clj

(defn edit-user! [{:keys [username old-name password]}] 
  (let [user {:username username :password password}]
    (if (= username old-name)
      (when (valid-psw? password)
        (let [{uname :username}]
          (-> user (repo/upsert :users) )))))) ;calling function


(defn upsert ([model condition document-fields
               & {:keys [upsert] :or {upsert false}}]
                 (mc/update model condition document-fields upsert))
  ([model document-fields & {:keys [upsert] :or {upsert false}}] 
     mc/update document-fields upsert))