Add KRAKEN_ENABLED flag to disable Kraken pollers in local dev

Same pattern as BINANCE_ENABLED and STRIKE_ENABLED. Prevents local
dev from fetching external pricing data when pointed at btcprod.
Docker explicitly sets KRAKEN_ENABLED=true.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

docker-compose.yml

@@ -19,6 +19,7 @@ services:
       CORS_ORIGIN: "${DOCKER_CORS_ORIGIN}"
       FRANKFURTER_URL: "${DOCKER_FRANKFURTER_URL}"
       STRIKE_API_KEY: "${STRIKE_API_KEY}"
+      KRAKEN_ENABLED: "true"
     extra_hosts:
       - "postgres:host-gateway"
 

resources/system.edn

@@ -56,10 +56,12 @@
   :enabled? #or [#env BINANCE_ENABLED "true"]}
 
  :kraken/ohlc
- {:query-fn #ig/ref :db.sql/query-fn}
+ {:query-fn #ig/ref :db.sql/query-fn
+  :enabled? #or [#env KRAKEN_ENABLED "true"]}
 
  :kraken/ohlc-day
- {:query-fn #ig/ref :db.sql/query-fn}
+ {:query-fn #ig/ref :db.sql/query-fn
+  :enabled? #or [#env KRAKEN_ENABLED "true"]}
 
  :frankfurter/rates
  {:url      #or [#env FRANKFURTER_URL "http://localhost:8080"]

src/clj/pmagnus/btcdata/kraken/ohlc.clj

@@ -103,7 +103,10 @@
               (log/error e "Kraken OHLC poll failed"))))))))
 
 (defmethod ig/init-key :kraken/ohlc
-  [_ {:keys [query-fn]}]
+  [_ {:keys [query-fn enabled?]}]
+  (if (= enabled? "false")
+    (do (log/info "Kraken OHLC poller disabled")
+        {:running? (atom false)})
     (let [client    (HttpClient/newHttpClient)
           db-since  (seed-since-from-db query-fn)
           since     (atom db-since)
@@ -115,7 +118,7 @@
         (log/info "Starting Kraken OHLC poller, fetching immediately (no data)"))
       {:running? running?
        :future   fut
-     :since    since}))
+       :since    since})))
 
 (defmethod ig/halt-key! :kraken/ohlc
   [_ {:keys [running? future]}]

src/clj/pmagnus/btcdata/kraken/ohlc_daily.clj

@@ -102,7 +102,10 @@
               (log/error e "Kraken daily OHLC poll failed"))))))))
 
 (defmethod ig/init-key :kraken/ohlc-day
-  [_ {:keys [query-fn]}]
+  [_ {:keys [query-fn enabled?]}]
+  (if (= enabled? "false")
+    (do (log/info "Kraken daily OHLC poller disabled")
+        {:running? (atom false)})
     (let [client    (HttpClient/newHttpClient)
           db-since  (seed-since-from-db query-fn)
           since     (atom db-since)
@@ -114,7 +117,7 @@
         (log/info "Starting Kraken daily OHLC poller, fetching immediately (no data)"))
       {:running? running?
        :future   fut
-     :since    since}))
+       :since    since})))
 
 (defmethod ig/halt-key! :kraken/ohlc-day
   [_ {:keys [running? future]}]