Merge pull request #145 from vollcheck/auto-reload-sql-queries-on-dev

Add a dev clause for SQL queries automatic reload

libs/deps-template/resources/io/github/kit_clj/kit/resources/system.edn

@@ -116,7 +116,8 @@
  :db.sql/query-fn
  {:conn     #ig/ref :db.sql/connection
   :options  {}
-  :filename "queries.sql"} <% endif %><% if migratus? %>
+  :filename "queries.sql"
+  :env #ig/ref :system/env} <% endif %><% if migratus? %>
 
  :db.sql/migrations
  {:store            :database

libs/kit-sql-conman/src/kit/edge/db/sql/conman.clj

@@ -19,17 +19,30 @@
   [key opts old-opts old-impl]
   (ig-utils/resume-handler key opts old-opts old-impl))
 
+(defn queries-dev [load-queries]
+  (fn
+    ([query params]
+     (conman/query (load-queries) query params))
+    ([conn query params & opts]
+     (conman/query conn (load-queries) query params opts))))
+
+(defn queries-prod [load-queries]
+  (let [queries (load-queries)]
+    (fn
+      ([query params]
+       (conman/query queries query params))
+      ([conn query params & opts]
+       (conman/query conn queries query params opts)))))
+
 (defmethod ig/init-key :db.sql/query-fn
-  [_ {:keys [conn options filename filenames]
+  [_ {:keys [conn options filename filenames env]
       :or   {options {}}}]
   (let [filenames (or filenames [filename])
-        queries (apply conman/bind-connection-map conn options filenames)]
+        load-queries #(apply conman/bind-connection-map conn options filenames)]
     (with-meta
-      (fn
-        ([query params]
-         (conman/query queries query params))
-        ([conn query params & opts]
-         (apply conman/query conn queries query params opts)))
+      (if (= env :dev)
+        (queries-dev load-queries)
+        (queries-prod load-queries))
       {:mtimes (mapv ig-utils/last-modified filenames)})))
 
 (defmethod ig/suspend-key! :db.sql/query-fn [_ _])