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

Use quote-sats from btcdata instead of local EUR/BTC calculation

Browse Source 
Sats value now comes from btcdata's Strike quote endpoint which
includes the actual fee/spread, matching the Strike app.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
magnus
2026-03-06 11:42:51 +01:00
co-authored by Claude Opus 4.6
parent 6b4c8034f1
commit ae676f2b6c
1 changed files with 1 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/clj/pmagnus/btcprice/web/routes/ws_proxy.clj
+1 -8
View File
@@ -117,16 +117,9 @@
amount)) amount))
"\u2014")) "\u2014"))
(def ^:private sats-eur-amount
(double (bigdec (or (System/getenv "SATS_EUR_AMOUNT") "54.46"))))
(defn- eur-to-sats [rates]
(when-let [eur-btc (get rates "EUR/BTC")]
(long (* sats-eur-amount (double (bigdec eur-btc)) 100000000))))
(defn- strike-json->html [text] (defn- strike-json->html [text]
(let [rates (json/read-str text) (let [rates (json/read-str text)
sats (eur-to-sats rates)] sats (get rates "quote-sats")]
(str "<div id=\"strike-display\">" (str "<div id=\"strike-display\">"
"<div class=\"rounded-2xl shadow-sm border border-gray-200 p-6\" style=\"background:#f3f4f6;\">" "<div class=\"rounded-2xl shadow-sm border border-gray-200 p-6\" style=\"background:#f3f4f6;\">"
(if sats (if sats