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,19 +103,22 @@
               (log/error e "Kraken OHLC poll failed"))))))))
 
 (defmethod ig/init-key :kraken/ohlc
-  [_ {:keys [query-fn]}]
+  [_ {:keys [query-fn enabled?]}]
-  (let [client    (HttpClient/newHttpClient)
+  (if (= enabled? "false")
-        db-since  (seed-since-from-db query-fn)
+    (do (log/info "Kraken OHLC poller disabled")
-        since     (atom db-since)
+        {:running? (atom false)})
-        running?  (atom true)
+    (let [client    (HttpClient/newHttpClient)
-        has-data? (some? db-since)
+          db-since  (seed-since-from-db query-fn)
-        fut       (start-poll-loop! client query-fn since running? has-data?)]
+          since     (atom db-since)
-    (if has-data?
+          running?  (atom true)
-      (log/info "Starting Kraken OHLC poller, next fetch in" (quot (ms-until-next-poll) 60000) "minutes")
+          has-data? (some? db-since)
-      (log/info "Starting Kraken OHLC poller, fetching immediately (no data)"))
+          fut       (start-poll-loop! client query-fn since running? has-data?)]
-    {:running? running?
+      (if has-data?
-     :future   fut
+        (log/info "Starting Kraken OHLC poller, next fetch in" (quot (ms-until-next-poll) 60000) "minutes")
-     :since    since}))
+        (log/info "Starting Kraken OHLC poller, fetching immediately (no data)"))
+      {:running? running?
+       :future   fut
+       :since    since})))
 
 (defmethod ig/halt-key! :kraken/ohlc
   [_ {:keys [running? future]}]

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

@@ -102,19 +102,22 @@
               (log/error e "Kraken daily OHLC poll failed"))))))))
 
 (defmethod ig/init-key :kraken/ohlc-day
-  [_ {:keys [query-fn]}]
+  [_ {:keys [query-fn enabled?]}]
-  (let [client    (HttpClient/newHttpClient)
+  (if (= enabled? "false")
-        db-since  (seed-since-from-db query-fn)
+    (do (log/info "Kraken daily OHLC poller disabled")
-        since     (atom db-since)
+        {:running? (atom false)})
-        running?  (atom true)
+    (let [client    (HttpClient/newHttpClient)
-        has-data? (some? db-since)
+          db-since  (seed-since-from-db query-fn)
-        fut       (start-poll-loop! client query-fn since running? has-data?)]
+          since     (atom db-since)
-    (if has-data?
+          running?  (atom true)
-      (log/info "Starting Kraken daily OHLC poller, next fetch in" (quot (ms-until-next-daily-poll) 60000) "minutes")
+          has-data? (some? db-since)
-      (log/info "Starting Kraken daily OHLC poller, fetching immediately (no data)"))
+          fut       (start-poll-loop! client query-fn since running? has-data?)]
-    {:running? running?
+      (if has-data?
-     :future   fut
+        (log/info "Starting Kraken daily OHLC poller, next fetch in" (quot (ms-until-next-daily-poll) 60000) "minutes")
-     :since    since}))
+        (log/info "Starting Kraken daily OHLC poller, fetching immediately (no data)"))
+      {:running? running?
+       :future   fut
+       :since    since})))
 
 (defmethod ig/halt-key! :kraken/ohlc-day
   [_ {:keys [running? future]}]