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

Enlarge EUR/DKK converted prices and show exchange rates below

Browse Source 
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
magnus
2026-02-27 14:51:38 +01:00
co-authored by Claude Opus 4.6
parent 46666aa994
commit 1a22cc3b02
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/clj/pmagnus/btcdata/web/routes/api.clj
+9 -3
View File
@@ -42,11 +42,17 @@
"<div class=\"text-center\">" "<div class=\"text-center\">"
"<p class=\"text-4xl font-bold " color "\">$" (format "%,.2f" p) "</p>" "<p class=\"text-4xl font-bold " color "\">$" (format "%,.2f" p) "</p>"
(when rates (when rates
(let [p-eur (double (.multiply (bigdec price) (:eur rates))) (let [eur (double (:eur rates))
dkk (double (:dkk rates))
p-eur (double (.multiply (bigdec price) (:eur rates)))
p-dkk (double (.multiply (bigdec price) (:dkk rates)))] p-dkk (double (.multiply (bigdec price) (:dkk rates)))]
(str "<div class=\"flex justify-center gap-4 mt-3\">" (str "<div class=\"flex justify-center gap-4 mt-3\">"
"<span class=\"text-sm text-gray-600\">\u20AC" (format "%,.2f" p-eur) "</span>" "<span class=\"text-2xl font-bold text-gray-600\">\u20AC" (format "%,.2f" p-eur) "</span>"
"<span class=\"text-sm text-gray-600\">" (format "%,.2f" p-dkk) " kr</span>" "<span class=\"text-2xl font-bold text-gray-600\">" (format "%,.2f" p-dkk) " kr</span>"
"</div>"
"<div class=\"flex justify-center gap-4 mt-1\">"
"<span class=\"text-xs text-gray-400\">EUR/USD " (format "%.4f" eur) "</span>"
"<span class=\"text-xs text-gray-400\">DKK/USD " (format "%.4f" dkk) "</span>"
"</div>"))) "</div>")))
"<p class=\"text-xs text-gray-400 mt-2\">Updated " ts "</p>" "<p class=\"text-xs text-gray-400 mt-2\">Updated " ts "</p>"
"</div></div></div>"))) "</div></div></div>")))