From 8ab9267e456ef99934bac109f1d58d8f627cb1b8 Mon Sep 17 00:00:00 2001
From: Bryce <bryce@brycecovertoperations.com>
Date: Tue, 22 Oct 2024 23:06:39 -0700
Subject: [PATCH] balance sheet fast

---
 src/clj/auto_ap/ssr/ledger.clj |  9 +++++----
 src/clj/auto_ap/ssr/utils.clj  | 32 +++++++++++++++++---------------
 2 files changed, 22 insertions(+), 19 deletions(-)

diff --git a/src/clj/auto_ap/ssr/ledger.clj b/src/clj/auto_ap/ssr/ledger.clj
index 2f310863..4918c452 100644
--- a/src/clj/auto_ap/ssr/ledger.clj
+++ b/src/clj/auto_ap/ssr/ledger.clj
@@ -224,7 +224,7 @@
                                                                            (let [errors (seq (fc/field-errors))]
                                                                              (cond errors
                                                                                    [:div
-                                                                                    {}
+                                                                                    { "x-tooltip"  "{content: ()=>$refs.tt.innerHTML , allowHTML: true}"}
                                                                                     [:div.w-8.h-8.rounded-full.p-2.flex.items-start {:class
                                                                                                                                      (if (seq (filter
                                                                                                                                                (fn [[_ status]]
@@ -234,9 +234,10 @@
                                                                                                                                        "bg-red-50 text-red-300"
                                                                                                                                        "bg-yellow-100 text-yellow-600")}
                                                                                      svg/alert]
-                                                                                    [:ul
-                                                                                     (for [[m] errors]
-                                                                                       [:li m])]]
+                                                                                    [:template {:x-ref "tt"}
+                                                                                     [:ul
+                                                                                      (for [[m] errors]
+                                                                                        [:li m])]]]
                                                                                    :else
                                                                                    nil))]))))}
                                
diff --git a/src/clj/auto_ap/ssr/utils.clj b/src/clj/auto_ap/ssr/utils.clj
index 2d6b1db9..bec8dbdb 100644
--- a/src/clj/auto_ap/ssr/utils.clj
+++ b/src/clj/auto_ap/ssr/utils.clj
@@ -319,7 +319,7 @@
                                                    (when (:coerce? (m/properties schema))
                                                      (fn [data]
                                                        (cond
-                                                         (vector? data)
+                                                   (vector? data)
                                                          data
                                                          (sequential? data)
                                                          data
@@ -363,20 +363,22 @@
   (mt2/transformer 
     {:decoders {:map {:compile (fn [x g]
                                  (fn [value]
-                                   (let [specified-keys (set (keys value))]
-                                     (reduce
-                                       (fn [value [k params]]
-                                         (cond (and (:unspecified/fn params)
-                                                    (not (get specified-keys k)))
-                                               (assoc value k ((:unspecified/fn params)))
-                                               (and (:unspecified/value params)
-                                                    (not (get specified-keys k)))
-                                               (assoc value k (:unspecified/value params))
-                                               :else
-                                               value
-                                               ))
-                                       value 
-                                       (m/children x)))))}}}))
+                                   (if (map? value)
+                                     (let [ specified-keys (set (keys value))]
+                                       (reduce
+                                        (fn [value [k params]]
+                                          (cond (and (:unspecified/fn params)
+                                                     (not (get specified-keys k)))
+                                                (assoc value k ((:unspecified/fn params)))
+                                                (and (:unspecified/value params)
+                                                     (not (get specified-keys k)))
+                                                (assoc value k (:unspecified/value params))
+                                                :else
+                                                value
+                                                ))
+                                        value 
+                                        (m/children x)))
+                                     value)))}}}))
 
 (def main-transformer
   (mt2/transformer