notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

minor tweak.

Browse Source
This commit is contained in:
Bryce
2023-08-19 15:34:03 -07:00
parent e38636a739
commit 8a31112c5b
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/clj/auto_ap/ssr/transaction/insights.clj
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 (some-> r :transaction/date coerce/to-date-time (atime/unparse-local atime/normal-date))]
[:th.text-left (-> r :transaction/description-original)] [:th.text-left (-> r :transaction/description-original)]
[:th.text-left (if (> (-> r :transaction/amount) 0.0) [:th.text-left (if (> (-> r :transaction/amount) 0.0)
[:div.tag.is-success.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)))])] [:div.tag.is-danger.is-light (str "$" (Math/round (:transaction/amount r)))])]
[:th] [:th]
[:th] [:th]
[:th.text-left ]] [:th.text-left]]
(take 10 (take 10
(for [{:keys [amount date description vendor-name numeric-code score]} similar] (for [{:keys [amount date description vendor-name numeric-code score]} similar]
[:tr [:tr
[:td (subs date 0 10)] [:td (subs date 0 10)]
[:td description] [:td description]
[:td (format "$%.2f" amount)] [:td (some->> amount double (format "$%.2f"))]
[:td vendor-name] [:td vendor-name]
[:td numeric-code] [:td numeric-code]
[:td (format "%.1f%%" (* 100 (double score)))]]))]] [:td (format "%.1f%%" (* 100 (double score)))]]))]]