(ns user
  (:require
   [clojure.tools.logging :as log]
   [integrant.core :as ig]
   [integrant.repl :refer [go halt reset reset-all set-prep!]]
   [pmagnus.btcprice.config :as config]))

(defn dev-prep! []
  (set-prep!
   (fn []
     (-> (config/system-config {:profile :dev})
         (ig/prep)))))

(defn test-prep! []
  (set-prep!
   (fn []
     (-> (config/system-config {:profile :test})
         (ig/prep)))))

(defn reset-db []
  (let [sys (or @pmagnus.btcprice.core/system
                integrant.repl.state/system)]
    (when-let [mig (:db.sql/migrations sys)]
      (migratus.core/reset mig)
      (log/info "Database reset complete"))))

(defn rollback []
  (let [sys (or @pmagnus.btcprice.core/system
                integrant.repl.state/system)]
    (when-let [mig (:db.sql/migrations sys)]
      (migratus.core/rollback mig))))

(defn migrate []
  (let [sys (or @pmagnus.btcprice.core/system
                integrant.repl.state/system)]
    (when-let [mig (:db.sql/migrations sys)]
      (migratus.core/migrate mig))))

(defn query-fn []
  (let [sys (or @pmagnus.btcprice.core/system
                integrant.repl.state/system)]
    (:db.sql/query-fn sys)))

(comment
  (dev-prep!)
  (go)
  (reset)
  (halt))