   [item account]
   (assoc item :polarized-amount (accounts/polarize-amount item account)))
 
-(defn- prepare-item-for-return
+(defn- after-item-read
   "Makes adjustments to a transaction item in prepartion for return
   from the data store"
-  ([item] (prepare-item-for-return item nil))
+  ([item] (after-item-read item nil))
   ([item account]
    (if (map? item)
      (cond-> item

  [storage-spec id]
  (with-storage [s storage-spec]
    (->> (find-transaction-by-id s id)
         prepare-for-return
         (append-items s))))

(defn find-by-item-id

  [storage-spec account-id]
  (with-storage [s storage-spec]
    (let [account (accounts/find-by-id storage-spec account-id)]
      (map #(after-item-read % account)
           (select-transaction-items-by-account-id s
                                                   account-id
                                                   {:reconciled? false})))))
