gered/views.sql
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add clojure.jdbc query result-set-fn support to views

Browse source
This commit is contained in:
Gered 2016-05-22 18:16:00 -04:00
parent 1c4c20fb61
commit d82702d946
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/views/sql/view.clj
View file

@ -8,7 +8,7 @@
; this implementation based on views-honeysql ; this implementation based on views-honeysql
(defrecord SQLView [id db-or-db-fn query-fn row-fn] (defrecord SQLView [id db-or-db-fn query-fn options]
IView IView
(id [_] id) (id [_] id)
(data [_ namespace parameters] (data [_ namespace parameters]
@ -16,7 +16,9 @@
(db-or-db-fn namespace) (db-or-db-fn namespace)
db-or-db-fn) db-or-db-fn)
start (System/currentTimeMillis) start (System/currentTimeMillis)
data (jdbc/query db (apply query-fn parameters) {:row-fn row-fn}) data (jdbc/query db
(apply query-fn parameters)
(select-keys options [:row-fn :result-set-fn]))
time (- (System/currentTimeMillis) start)] time (- (System/currentTimeMillis) start)]
(when (>= time 1000) (warn id "took" time "msecs")) (when (>= time 1000) (warn id "took" time "msecs"))
data)) data))
@ -35,5 +37,7 @@
sql-fn - a function that returns a JDBC-style vector containing a SELECT query sql-fn - a function that returns a JDBC-style vector containing a SELECT query
followed by any parameters. this query will be run whenever this view followed by any parameters. this query will be run whenever this view
needs to be refreshed." needs to be refreshed."
[id db-or-db-fn sql-fn & {:keys [row-fn]}] [id db-or-db-fn sql-fn & {:keys [row-fn result-set-fn] :as options
(SQLView. id db-or-db-fn sql-fn (or row-fn identity))) :or {row-fn identity
result-set-fn doall}}]
(SQLView. id db-or-db-fn sql-fn options))