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

balance sheet fast

Browse Source
This commit is contained in:
Bryce
2024-10-22 23:06:39 -07:00
parent 12baf70d5c
commit 8ab9267e45
2 changed files with 22 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/clj/auto_ap/ssr/ledger.clj
View File

@@ -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))]))))}

32
src/clj/auto_ap/ssr/utils.clj
View File

@@ -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