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

Makes cursor-seq for lists

Browse Source
This commit is contained in:
Bryce
2023-10-23 15:02:36 -07:00
parent be9d777a17
commit 84d6f455ff
4 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/clj/auto_ap/ssr/admin/accounts.clj
View File

@@ -376,11 +376,8 @@
(com/data-grid-header {} "Account name") (com/data-grid-header {} "Account name")
(com/data-grid-header {})] (com/data-grid-header {})]
:id "client-override-table"} :id "client-override-table"}
(when (fc/field-value) (fc/cursor-map
(doall #(client-override* %))
(for [override fc/*current*]
(fc/with-cursor override
(client-override* override)))))
(com/data-grid-row (com/data-grid-row
{:class "new-row"} {:class "new-row"}
(com/data-grid-cell {:colspan 3 (com/data-grid-cell {:colspan 3

5
src/clj/auto_ap/ssr/admin/transaction_rules.clj
View File

@@ -549,10 +549,7 @@
(com/data-grid-header {:class "w-16"} "%") (com/data-grid-header {:class "w-16"} "%")
(com/data-grid-header {:class "w-16"})] (com/data-grid-header {:class "w-16"})]
:id "transaction-rule-account-table"} :id "transaction-rule-account-table"}
(when (fc/field-value) (fc/cursor-map #(transaction-rule-account-row* entity %))
(doall (for [tra fc/*current*]
(fc/with-cursor tra
(transaction-rule-account-row* entity tra)))))
(com/data-grid-row (com/data-grid-row
{:class "new-row"} {:class "new-row"}
(com/data-grid-cell {:colspan 4 (com/data-grid-cell {:colspan 4

10
src/clj/auto_ap/ssr/form_cursor.clj
View File

@@ -45,3 +45,13 @@
(every? string? errors))))) (every? string? errors)))))
(defn cursor-map
([f] (cursor-map *current* f))
([cursor f]
(when (field-value)
(doall
(for [n cursor]
(with-cursor n
(f n)))))))

8
src/clj/auto_ap/ssr/users.clj
View File

@@ -322,9 +322,7 @@
(com/data-grid {:headers [(com/data-grid-header {} "Client") (com/data-grid {:headers [(com/data-grid-header {} "Client")
(com/data-grid-header {} )] (com/data-grid-header {} )]
:id "client-table"} :id "client-table"}
(doall (for [client fc/*current*] (fc/cursor-map #(client-row* %))
(fc/with-cursor client
(client-row* client))))
(com/data-grid-row (com/data-grid-row
{:class "new-row"} {:class "new-row"}
(com/data-grid-cell {:colspan 2 (com/data-grid-cell {:colspan 2
@@ -337,9 +335,7 @@
:hx-vals (hiccup/raw "js:{index: countRows(\"#client-table\")}") :hx-vals (hiccup/raw "js:{index: countRows(\"#client-table\")}")
:hx-target "#edit-form .new-row" :hx-target "#edit-form .new-row"
:hx-swap "beforebegin"} :hx-swap "beforebegin"}
"New override")]))) "New override")])))))]
))
[:div#form-errors [:span.error-content]]]
[:div [:div
[:div [:div#form-errors (when (:errors fc/*form-errors*) [:div [:div#form-errors (when (:errors fc/*form-errors*)
[:span.error-content [:span.error-content