minor tweak.

This commit is contained in:
Bryce
2023-08-19 15:34:03 -07:00
parent e38636a739
commit 8a31112c5b

View File

@@ -243,17 +243,17 @@
[:th.text-left (some-> r :transaction/date coerce/to-date-time (atime/unparse-local atime/normal-date))]
[:th.text-left (-> r :transaction/description-original)]
[:th.text-left (if (> (-> r :transaction/amount) 0.0)
[:div.tag.is-success.is-light (str "$" (Math/round (:transaction/amount r)))]
[:div.tag.is-danger.is-light (str "$" (Math/round (:transaction/amount r)))])]
[:div.tag.is-success.is-light (str "$" (Math/round (:transaction/amount r)))]
[:div.tag.is-danger.is-light (str "$" (Math/round (:transaction/amount r)))])]
[:th]
[:th]
[:th.text-left ]]
[:th.text-left]]
(take 10
(for [{:keys [amount date description vendor-name numeric-code score]} similar]
[:tr
[:td (subs date 0 10)]
[:td description]
[:td (format "$%.2f" amount)]
[:td (some->> amount double (format "$%.2f"))]
[:td vendor-name]
[:td numeric-code]
[:td (format "%.1f%%" (* 100 (double score)))]]))]]