35 lines
1.3 KiB
Clojure
35 lines
1.3 KiB
Clojure
(ns auto-ap.routes.yodlee
|
|
(:require
|
|
[auto-ap.graphql :as graphql]
|
|
[clj-http.client :as http]
|
|
|
|
[auto-ap.yodlee.core :as yodlee]
|
|
[auto-ap.graphql.utils :refer [->graphql assert-admin]]
|
|
[auto-ap.routes.utils :refer [wrap-secure]]
|
|
[clj-time.coerce :refer [to-date]]
|
|
[auto-ap.db.invoices-expense-accounts :as expense-accounts]
|
|
[ring.middleware.json :refer [wrap-json-response]]
|
|
[compojure.core :refer [GET POST context defroutes wrap-routes]]
|
|
[clojure.string :as str]
|
|
[config.core :refer [env]]
|
|
))
|
|
|
|
(defroutes routes
|
|
(wrap-routes
|
|
(context "/yodlee" []
|
|
(GET "/fastlink" {:keys [query-params identity] :as request}
|
|
(assert-admin identity)
|
|
(let [[session token] (yodlee/get-access-token)]
|
|
|
|
|
|
{:status 200
|
|
:headers {"Content-Type" "application/edn"}
|
|
:body (pr-str {:session session
|
|
:token token
|
|
:app (:yodlee-app env)
|
|
|
|
:url (:yodlee-fastlink env)
|
|
|
|
}) })))
|
|
wrap-secure))
|