notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

writes as csv.

Browse Source
This commit is contained in:
Bryce Covert
2021-05-21 17:06:33 -07:00
parent 4dc66f3d86
commit 8214b30a3e
1 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/clj/auto_ap/routes/exports.clj
View File

@@ -12,12 +12,20 @@
[auto-ap.logging :refer [error-event info-event warn-event]] [auto-ap.logging :refer [error-event info-event warn-event]]
[clj-time.coerce :as coerce :refer [to-date]] [clj-time.coerce :as coerce :refer [to-date]]
[clj-time.core :as time] [clj-time.core :as time]
[clojure.data.csv :as csv]
[config.core :refer [env]] [config.core :refer [env]]
[compojure.core :refer [context defroutes GET wrap-routes routes]] [compojure.core :refer [context defroutes GET wrap-routes routes]]
[datomic.api :as d] [datomic.api :as d]
[ring.middleware.json :refer [wrap-json-response]] [ring.middleware.json :refer [wrap-json-response]]
[venia.core :as venia] [venia.core :as venia]
[yang.time :refer [time-it]])) [yang.time :refer [time-it]]))
(defn wrap-csv-response [handler]
(fn [request]
(let [response (handler request)]
(println response)
(update response :body #(with-open [w (java.io.StringWriter.)]
(csv/write-csv w %)
(.toString w))))))
(def api-key-authed-routes (def api-key-authed-routes
(context "/" [] (context "/" []
@@ -238,10 +246,9 @@
(log/info "Executing raw query " (get query-params "query" )) (log/info "Executing raw query " (get query-params "query" ))
(into (list) (apply d/q (clojure.edn/read-string (get query-params "query" )) (into [(d/db conn)] (clojure.edn/read-string (get query-params "args" "[]")))))))) (into (list) (apply d/q (clojure.edn/read-string (get query-params "query" )) (into [(d/db conn)] (clojure.edn/read-string (get query-params "args" "[]"))))))))
(defroutes export-routes (defroutes export-routes
(wrap-routes (routes
(routes (wrap-routes api-key-authed-routes
api-key-authed-routes wrap-csv-response)
(wrap-routes admin-only-routes wrap-secure)) (wrap-routes (wrap-routes admin-only-routes wrap-secure)
wrap-json-response)))
wrap-json-response))