notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 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

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

@@ -224,7 +224,7 @@
(let [errors (seq (fc/field-errors))] (let [errors (seq (fc/field-errors))]
(cond errors (cond errors
[:div [:div
{} { "x-tooltip" "{content: ()=>$refs.tt.innerHTML , allowHTML: true}"}
[:div.w-8.h-8.rounded-full.p-2.flex.items-start {:class [:div.w-8.h-8.rounded-full.p-2.flex.items-start {:class
(if (seq (filter (if (seq (filter
(fn [[_ status]] (fn [[_ status]]
@@ -234,9 +234,10 @@
"bg-red-50 text-red-300" "bg-red-50 text-red-300"
"bg-yellow-100 text-yellow-600")} "bg-yellow-100 text-yellow-600")}
svg/alert] svg/alert]
[:template {:x-ref "tt"}
[:ul [:ul
(for [[m] errors] (for [[m] errors]
[:li m])]] [:li m])]]]
:else :else
nil))]))))} nil))]))))}

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

@@ -363,7 +363,8 @@
(mt2/transformer (mt2/transformer
{:decoders {:map {:compile (fn [x g] {:decoders {:map {:compile (fn [x g]
(fn [value] (fn [value]
(let [specified-keys (set (keys value))] (if (map? value)
(let [ specified-keys (set (keys value))]
(reduce (reduce
(fn [value [k params]] (fn [value [k params]]
(cond (and (:unspecified/fn params) (cond (and (:unspecified/fn params)
@@ -376,7 +377,8 @@
value value
)) ))
value value
(m/children x)))))}}})) (m/children x)))
value)))}}}))
(def main-transformer (def main-transformer
(mt2/transformer (mt2/transformer