you can now type expense account

src/clj/auto_ap/yodlee/core.clj

@@ -77,6 +77,44 @@
           (recur (concat transactions transaction-batch) (+ batch-size skip))
           transactions)))))
 
+(defn get-provider-accounts []
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)
+        batch-size 100
+        get-transaction-batch (fn [skip]
+                                (-> (str (:yodlee-base-url env) "/providerAccounts") 
+
+                                    (client/get {:headers (doto
+                                                              (merge base-headers {"Authorization" (auth-header cob-session user-session)})
+                                                            println) 
+                                                 :as :json})
+                                    :body
+                                    ))]
+
+    (get-transaction-batch)))
+(defn get-specific-transactions []
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)
+        batch-size 100
+        get-transaction-batch (fn [skip]
+                                (-> (str (:yodlee-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=16422358") 
+                                    (doto println)
+
+                                    (client/get {:headers (doto
+                                                              (merge base-headers {"Authorization" (auth-header cob-session user-session)})
+                                                            println) 
+                                                 :as :json})
+                                    :body
+                                    :transaction
+                                    ))]
+
+    (loop [transactions [] 
+           skip 0]
+      (let [transaction-batch (get-transaction-batch skip)]
+        (if (seq transaction-batch)
+          (recur (concat transactions transaction-batch) (+ batch-size skip))
+          transactions)))))
+
 (defn get-access-token []
   (let [cob-session (login-cobrand)
         user-session (login-user cob-session)

src/cljs/auto_ap/views/pages/unpaid_invoices.cljs

@@ -481,7 +481,7 @@
          [:tr
           [:td.expandable [:div.control
                            [bind-field
-                            [typeahead {:matches (map (fn [x] [(:id x) (:name x)]) chooseable-expense-accounts)
+                            [typeahead {:matches (map (fn [x] [(:id x) (str (:id x) " - " (:name x))]) chooseable-expense-accounts)
                                         :type "typeahead"
                                         :field [:invoice :expense-accounts index :expense-account-id]
                                         :event change-event