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

insights

Browse Source
This commit is contained in:
Bryce
2023-08-14 07:21:38 -07:00
parent f6fdbd52a0
commit 673ca471f9
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/clj/auto_ap/ssr/transaction/insights.clj
View File

@@ -104,7 +104,8 @@
:numeric-code account-code :numeric-code account-code
:amount amount :amount amount
:date date :date date
:description description})) :description description
:score score}))
(defn transaction-row [r & {:keys [hide-actions? class last?]}] (defn transaction-row [r & {:keys [hide-actions? class last?]}]
@@ -210,7 +211,7 @@
(let [r (dc/pull (dc/db conn) (let [r (dc/pull (dc/db conn)
pull-expr pull-expr
(Long/parseLong transaction-id)) (Long/parseLong transaction-id))
similar (get-pinecone-similarities transaction-id)] similar (pinecone-similarity-list transaction-id)]
(html-response (html-response
(com/modal {} (com/modal {}
(com/modal-card {:style {:width "900px"}} (com/modal-card {:style {:width "900px"}}
@@ -235,7 +236,7 @@
[:th] [:th]
[:th.text-left ]] [:th.text-left ]]
(take 10 (take 10
(for [{{:keys [amount date description vendor-name numeric-code]} :metadata score :score id :id} (pinecone-similarity-list transaction-id)] (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]