support for new templates.

2019-11-30 18:07:27 -08:00
parent 94cc8f0f9a
commit 8cdc91d057
3 changed files with 35 additions and 3 deletions
--- a/src/clj/auto_ap/parse/util.clj
+++ b/src/clj/auto_ap/parse/util.clj
@@ -14,6 +14,17 @@
  (str/replace value #"," "")
  )

+(defmethod parse-value :trim-commas-and-negate
+  [_ _ value]
+  (let [[_ raw-value] (re-find #"([\d\.]+)"
+                               (-> value
+                                   (str/replace #"," "")
+                                   (str/replace #"-" "")))]
+    (if (or (str/includes? value "-")
+            (str/includes? value "CR"))
+      (str (- (Double/parseDouble raw-value)))
+      (str raw-value))))
+
 (defmethod parse-value :clj-time
  [_ format value]
  (time/from-time-zone (f/parse (f/formatter format) value)