magnus/btcdata
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add OHLC values to Kraken minute poller log output

Browse Source 
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
magnus
2026-03-13 13:18:05 +01:00
co-authored by Claude Opus 4.6
parent ae65ea3722
commit 44bb9a68d4
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/clj/pmagnus/btcdata/kraken/ohlc_minute.clj
+4 -3
View File
@@ -70,9 +70,10 @@
(when last-ts (when last-ts
(reset! since-atom last-ts)) (reset! since-atom last-ts))
(let [fmt (DateTimeFormatter/ofPattern "HH:mm") (let [fmt (DateTimeFormatter/ofPattern "HH:mm")
latest (:ts (last candles)) c (last candles)
ts-str (.format (.atOffset (Instant/ofEpochSecond latest) ZoneOffset/UTC) fmt)] ts-str (.format (.atOffset (Instant/ofEpochSecond (:ts c)) ZoneOffset/UTC) fmt)]
(log/info "Kraken minute:" (count candles) "candles, latest" ts-str "UTC"))) (log/info "Kraken minute:" (count candles) "candles, latest" ts-str "UTC"
"O" (str (:open c)) "H" (str (:high c)) "L" (str (:low c)) "C" (str (:close c)))))
(count candles))) (count candles)))
(defn- start-poll-loop! (defn- start-poll-loop!