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

le boulanger, others.

Browse Source
This commit is contained in:
Bryce Covert
2019-11-01 17:29:16 -07:00
parent 806e882d5c
commit fdf1dab0ac
7 changed files with 65 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/parse.clj
View File

@@ -79,7 +79,6 @@
(let [fuzzy-match (->> clients
(mapcat (fn [{:keys [:db/id :client/matches :client/name] :as client :or {matches []}}]
(map (fn [m]
(println m invoice-client-name)
[client (m/jaccard (.toLowerCase invoice-client-name) (.toLowerCase m))])
(conj matches name))))
(filter #(< (second %) 0.25))
@@ -111,7 +110,6 @@
(map (fn [match] [location match]) matches)))
(filter (fn [[location match]]
(println "loc " location match text)
(re-find (re-pattern (str "(?i)" match)) text)) )
first
first)