protoype.

src/clj/auto_ap/yodlee/core.clj

@@ -25,18 +25,21 @@
    :cobSession))
 
 
-(defn login-user [cob-session]
-  (-> (str (:yodlee-base-url env) "/user/login")
-      (client/post {:headers (merge base-headers {"Authorization" (auth-header cob-session)})
-                 :body
-                 (json/write-str {:user {:loginName (:yodlee-user-login env) 
-                                         :password (:yodlee-user-password env) 
-                                         :locale "en_US"}}) 
-                 :as :json})
-   :body
-   :user
-   :session
-   :userSession))
+(defn login-user 
+  ([cob-session] (:yodlee-user-login env) (:yodlee-user-password env))
+  ([cob-session user password]
+   (-> (str (:yodlee-base-url env) "/user/login")
+       (client/post {:headers (merge base-headers {"Authorization" (auth-header cob-session)})
+                     :body
+                     (json/write-str {:user {:loginName  user
+                                             :password password 
+                                             :locale "en_US"}}) 
+                     :as :json})
+       :body
+       :user
+       :session
+       :userSession))
+  )
 
 (defn get-accounts []
   (let [cob-session (login-cobrand)