magnusandClaude Opus 4.6
f7b571f670
Kit framework with Undertow, Reitit routing, Hiccup + HTMX templating, Tailwind CSS v4, PostgreSQL (empty database), and mobile-first index page. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
49 lines
1.2 KiB
Clojure
49 lines
1.2 KiB
Clojure
(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))
|